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は じ め に 





2 パー ツナ ル ・ コ ンピュータ が 世に 出 始め て か ら , まだ 20 年 を 
経て いな い 。 始め は オモ チャ 程度 の 機能 し か な か っ た の が , 今 
や 成人 に な ろう と し て いる 。 この 間 に 全 く 目 ざま し い ほ どの 発 
達 を 遂げ た も の で ある 。 十 数 年 前 まで は ヨチヨチ 歩き だ っ た だ の 
が , 今 で は . すっ か り 桂 会 に 定着 し , ビジ ネス の 世界 で は な く 
て は な ら な いも の に ま て 成長 し て きた 。 

も う 一 つ , 無く て は な ら な く な っ た 世界 が ある 。 それ が 子供 
の 世界 。 ゲ ー ム の 世界 で ある 。 

現在 ある 種 の ゲー ム 専 用 パソ コン が 600 万 台 売 れ て いる と いう 。 
アア ミコ ロン が る それ だ 。 フ ァ ミ コン だ っ て , シダ タキ と し だ コジ ビ 
ュー タ で ある 。 た が 低 兼 化 を 目指 し て いる た め , ゲー ム 専 用 機 
と し て 作ら れ て お り , ゲー ム 用 の 機能 し か 備 を て いな いと いう 
違い が ある こと は 事実 で ある 。 しかし, 子供 達 は この ファ ミコ 
ン に 触れ , ファ ミコ ン を 使い こなす こと に より , コン ピュ ー タ 
を 道具 と し て 受入 れる と いう 意識 が , し だ い に 定 着 し て いる こ 
と は 事実 で ある 。 

今 フ ァ ミ コン を 大 人 が と う て い 及ば な い 程 の 驚く べき 能力 を 
発揮 し て , 自由 に 駆使 し て いる 彼 等 は , 明日 の 本 格 的 コン ピュ 
ー タ の ユー ザ で ある 。 彼 等 が ファ ミュン を 通し て , コン ピュ ー 
タ を 理解 し 。 コン ピュ ー タ と 話す る こと を 知り , コン ピュ ー 

の 能力 と 限界 を 体得 し , 自分 の 身体 の 一 部 の よう に と り 込 ん 
で いる 様子 を みて いる と , すでに , 新しい 文化 が 生れ つつ ある 
よう に 思え る 。 こ れ ま で , 支え て きだ た だ, 物質 文明 か ら , コン ピ 
ュー タ を 通し た 情報 文化 の 入口 を 見 て いる よう な 気 が す る 。 

この よう な コン ピュ ー タ 文化 の な か で , 自分 も 使う 側 か ら も 

う 少 し , 作る 側 に 近づい て , より 密接 に コン ピュ ー タ に 触れ よ 
2 うと する 人 々 に , 趣味 の 世界 か ら ア プロ ー チ し ょ うと する の が , 
この 本 の 試み で ある 。 幸 に し て , いま パソ ユン は , 美しい 画面 








I は じ め に 


を 手軽 に つく り 出 すこ と が で きる よう に 高 機能 化し て きた 。 こ 
の 機能 を 十 二 分 に 駆使 し て , 楽し みな が ら , し だ い に コ ン ピ ュ 
ー タ の 魅力 に 溶け 込ん で ゆく 〈 こ と が で きれ ば と , そん な 願い を 
込め て この 本 を 書い て みた 。 

プロ グラ ム を 入力 し , それ が 一 つ 一 つ 動 き 出 すこ と を 確認 
る だ びに, あたかも , コン ピュ ー タ に 命 を 吹き 込む よう か 感激 
を 覚え を る こと が ある 。 こ の 喜び を 読者 諸氏 と 共に 味わう こと が 
で きれ ば , 著者 に と っ て これ 以上 の 喜び は な い 。 

本 書 が . これ か ら 加 速 さ れる コン ピュ ー タ 化 の 波 に 同調 する 
ため の 足がかり を つけ る キッ カケ と な っ て も ら え れ ば 幸い で ある 。 


昭和 61 年 3 月 
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FM//AV の 特徴 





AV と は , Audio Visual を 略し た も の で , 音 と 画像 を 楽し む 
パッ コン と いう 感覚 で つけ た 名 前 だ . 

その だ め に , これ まで の 8 ビッ ト ・ マ シー ン で は 考 ん た られ な 
か っ だ よう な , 数 々 の 特色 が 生か され て いる の が 面白 い . 
・4096 色 を 表現 で きる グラ フィ ッ ク 機 能 

320X200 ド ッ ト で は 4096 色 , 640X200 ド ッ ト で は 8 色 (2 画 
面 分 ) の 表示 が で きる . 

・ FM 埋 源 に よる ミュ ー ジ ッ ク 機 能 

FM 音源 や 加 を る こと に より , 一 度 に 6 重 和 音 が 出せ る よう 
に な り , シン モ サ イザ ー に 近い 機能 を 発揮 で きる . 

・ ス ー パ ー イ ン ポ ー ズ 機能 


テレ ビ の 画面 と , パソ コン の 画面 を ドッ キン グ す る 機能 . 


これ ら の 機能 を 組み 合わ せ て , 使う こと に より , これ まで 措 
いて いい だ, パソ コン の イメ ー ジ を 大 きく 飛躍 る せる こと が で き 
る よう に な っ た . 

単なる 計算 つ 作 表 機 か 6, も っ と 視覚 的 な ツー ル へ , 単純 な 
ゲー ム 機 か ら , より 迫力 の ある AV マシ ー ン へ と, 楽し き は 広 
が る ば か り で ある . 


本 機 を 前 に し て , 本 機 に 触れ な が ら 6, 頭 の 中 に ある 空想 の 世 
究 を 現実 の も ゃ の に 表現 し て みょう で は な いか . 








し 」 
FM77AV の 楽し み 万 


これ まで パソ コン を 使っ た こと が な い 人 で も , また 使い 慎 れ 
た 人 で も , も っ と 多く の 楽し み 方 を 発見 し た い は ず で ある . 

- 革 前 。 プラモデル の ブー ム が あっ た . これ まで , 木片 か ら 
刻 り 出し た 車 や 船 と は 段違い な 程 精 密 な モデ ル に は , いつ も 子 
供 の 夢 を 大 きく ふく ら ま せ て くれ た も の で あっ た . 

を それと 同じ よう に , パソ コン も 子供 達 の 心 を すっ か り と 6 ら を え 
て し まっ た . ゲー ム か ら 始 まり , より 複 殺 な プロ グラ ム を , い 
と も 簡単 に 操 つ る 彼 等 を 前 に し て , 大 人 達 に は 異 星人 を 見 る か 
の よう な 和敬 き が ある . 

彼 等 は , より 高度 な プロ グラ ム へ と 湊 々 に プロ グラ ム の レベ 
ル を 上 げ , 新しい 世界 に 挑戦 し て いく の で ある . そん な 彼 等 を 
含め て , より 広い 層 に , パソ コン の 遊び の 世界 を 紹介 し た い . 

この パソ ッ コン は , 幸い に し て , 豊富 な 画面 表示 機能 を 持っ て 
いる の で , 本 書 で は , 特に グラ フィ ッ ク に 重点 を 置い た , プロ 
グラ ム の 作り 方 を 紹介 し て いく こと に する . 


ご く 簡単 な 動き , 表示 法 か ら 始ま り , 複雑 な ゲー ム の 作り 方 
まで , 例示 し て みょう . 一 つ 一 つ , 自分 で 入力 し , 動か し て み 
る と, 新た な 感動 が 伝わっ て くる は ず で ある . 


本 書 は , ゲー ム を 通し て , BASIC の 扱い 方 , 画面 の 取扱 い 
方 。 ア イデ ア を プログ ラム に 生か し て いく 方 法 に つい て , を の 





4 1. FMZZAV と は 


一 端 を 例示 し て いく こと に する . 

カラ フル な 画面 を 体験 し ト リッキー な 画面 に 挑戦 し . そし 
て , 自分 で も っ と オリ ジ ナ ル な プロ グラ ム を 生み 出す 力 を つけ 
て も らい だ い . 








開 
上 へ の 移動 


は じ め に , も っ と も 簡単 な 移動 ・ 表 示 の 方 法 を 体験 し て みよ う . 


シン ボル で , スペ ー ド の マー ク を 画面 中 央 か ら 6 上 に 移動 し な 
が ら 6 表示 し て みる . 


和 有 の プロ グラ ム を 正確 に 入力 し て 実行 し て み ょ う . 行 10 か ら 
行 30 ま で は 別に 入力 し な く て も よい . 

行 130 か ら 160 ま で の 前 半 の プロ グラ ム で は 動い た 軌跡 が 残る 
が , 後半 の 行 200 か ら 6250 ま で の プロ グラ ム は 軌跡 を 表示 し な い 
よう に な っ て いる . 

ここ で , ちょ っ と 便利 な リン ポイ ント ・ プ ログ ラム の 人 解説 を 
し て お こう . 行 180. これ は , INPUT$ 文 で , 1 文字 どれ か の キ 
ー が 押さ きれ る まで プロ グラ ム は ここ で 中 断 す る . この 命令 は 。 
1 文字 入力 し て も, 画面 に 表示 (エコ ー バ ッ ク ) し な いし , リ 
ター ン ・ キ ー を 押さ なく て も すむ の で , ブロ グラ ム を 一 時 停止 
38 せ , 任意 の キー で 再 ス ター ト き させ る の に 便利 に 使え る の で , 


覧 えて あく ぐう 。 





2.1 上 へ の 物 動 。/ 


1『 P2.1 Or の 
20 ! 
30 『 変数 Y は 表示 行 を 示す 
100 SCREENg 0:CLS 
110 AS$=4 り 0 BS=U HI 
U 



































120 

130 FUR Y=12 TH 0 STEP -1 < 表示 位置 を 1 行 ず つ 上 へ ずら す 
140 LUCATE 40.Y : PRINT $ < スペ ー ド の 表示 

150 FR T=1 TU 500:NEXT T- 移動 スピ ー ド 調節 用 の タイ マ 
160 NEXT Y 

170 " 

180 K$=INPUT$ て (1 ) < プロ グラ ム の 一 時 中 止 ) 

190 ! (任意 の キー を 押す と 次 へ 進む ) 
200 CLS 


210 FOR Y=12 TH 0 STEP -} 
220 LUCATE 40.Y : PRTINT A$ 


230 FR T=1 TO 50OO0:NEXT T 
240 LUCATE 40,Y : PRTNT B$ 前 の 表示 結果 を 消す 
250 NEXT Y 





行 200 以 後 を 実行 し た 結果 





開 | 
下 へ の 移動 


前 の プロ グラ ム P 2.1 を ちょ っ と 変え ん た だ け で , スペ ー ド 
の マー ク は 上 に 移動 せ ず に , 下 に 移動 する . 行 130, 行 210 を 次 
の よう に 変え て みよ 2 う . 


130 FOR Y=12 TOI[O| STEP 1 130 FOR Y=12 TO 20 
\ 
2 0 省略 
人 ニーー テ ーー 


210 FOR Y=12 TOIO| STEP 1 210 FOR Y=12 TO 20 








ひび 


Y は スペ ー ド マー ク を 表示 する 縦 の 位置 ( 何 行 目 か ) を 示す 値 
で ある . 変更 後 の 行 130、 210 は , 12 行 目 か ら 20 行 目 ま で , 1 行 
ずつ 増加 きせ な る い , (と いう こと は , 下 に 移動 きせ な が ら と い 
うこ と に な る .) と いう 指示 に な る . 





10 『 
20 
30 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 


2.2 下 へ の 秘 動 9 


P2.2 22 ヘ フ イト リウ 


SCREENG 0:CLS 
トト ュー | B$ も =! 11 


FHR Y=12 TH 20 
LUCATE 40.Y : PRINT 人 $ 
FOR T=1 TO 500:NEXT T 
NEXT Y 
U 


K$=TNPUT$〈1) 
CLS 
FOR Y=12 TH 20 
LUCRTE 40.Y : PRINT a$ 
FHR T=1 TH 500:NEXT T 
LUCATE 40.Y : PRINT B$ 
NEXT _Y 
























































文字 表示 位置 

















|. 3 
箕 石 の 秘 動 


ト , 下 の 動き を 左 , 右 に 変え た て みよ う . 左右 に 移動 きせ る た 
め に は , 表示 位置 を 横 に 動く よう に プロ グラ ム 上 で 指定 すれ ば 
よい . 今 ま で , 上 ・ 下 に 動か すこ と を 学ん で きた . その ブロ グ 
ラム で , キー ポイ ント は , 指定 し た 位置 に 表示 る せる LOCATE 
文 の 使い 方 だ . 


LOCATE X,Y 
L 縦 方 向 の 位置 を 指定 する (0 24) 
横 方 向 の 位置 を 指定 する (0 一 79) 
X, Y は 縦 , 横 方 向 の 位置 を 指定 する た め に 仮り に つけ た 変数 


名 . 何で も か まわ な い . た だ し , 指定 で きる 値 は WIDTH 文 に よ 
る 最大 表示 範囲 を 越 を て は な ら な いと いう 制限 が ある の で , 要 





例え を ば 100 LOCATE 39, 12 
110 PRINT  『A" 





を 実行 する と , 横 40 文 字 日 , 縦 13 行 日 (スク リー ン の ほ ば ぼ ば 中央 
位置 ) に , 英字 の A が 表示 きれ る . 

この よう に , LOCATE 文 は ,。 スク リー ン 上 に 表示 する 文字 の 
位置 を 自由 に 指定 する こと が で きる の で , この 文 を 効果 的 に 使 
えば, 文字 を 移動 表示 で きる こと に な る . 





2.3 左右 の 移動 。 11 


ここ の 例 で は , LOCATE 文 の X 方 向 ( 横 方 向 ) の 値 を 変え る 
こと に よっ て , スペ ー ド マー ク を 横 に 動く 例 を 示し て いる .X の 
値 を 増やす と 右 へ , 逆 に 減ら す と だ へ 移動 する . 


つぎ の プログ ラム (P 2. 3) は X を 40 か ら 680 へ 増やし て い 
る の で , スペ ー ド ・ マ ー ク は , スク リー ン の 中 央 位置 か ら 右 へ 


動く こと に な る . 


40 ) 夫人 2 ブイ ドウ 

20 8 

30 ! 

100 SCREEN 0:CLS 

110 も =「 ま 5 B$= リ ! 1 

120 " 

130 FOR X=40 TH 80 

140 LUCATE X,12 : PRTINT Ra$ 





150 FUR T=1 TH 100:NEXT T 
160 NEXT X 

170 " 

180 K$=TNPUT$〈1 ) 

J90 " 

200 CLS 


210 FR X=40 TH 80 
220 LUCATE X,12 : PRINT Ra$ 


230 FUR 「=1 TU 100:NEXT T 
240 LOUCATE X,12 : PRINT B$ 
250 NEXT X 


逆 に 左 へ 動か めす に は , 行 130,210 も つぎ の よう に 変え る と よい . 


130 FUR X=40 TO 0 STEP -1 


210 FUR X=40 TH 0 STEP -1 











終 の 移動 


文字 パタ ー ン を 斜 に 移動 きせ る た め に は , これ まで の 上 ・ 下 , 
水平 移動 を 同時 に 行 を ば よい . つぎ の プロ グラ ム が その 1 例 だ . 


10 !  P2.4 ナナ メ フイ トリ ウ 


20 

30 『 

100 SCREEN9 0:CLS N : パタ ー ン を 10 回 表示 する 
110 A$=" 谷 0 B$=I リ た め の 変 数 

120 


130 FOR N=1 TO 10 
140 LUCATE 30+N*4,11+N : PRTNT 人 $ 


150 FR T=1 TH 500:NEXT T 
160 NEXT _N 

170 " 

180 K$=TNPUT$ く 1 ) 

420.『 

200 CLS 


210 FUR N=1 TO 10 
220 LUCATE 30+Nk4,11+N : PRINT R$ 


230 FUR T=1 TH 500:NEXT 「 
240 LDCRTE 30+N*4,11+N : PRINT B$ 
250 NEXT _N 


この 例 は スク リー ン の ほ ば 中央 位置 か ら 右 下方 へ , 斜 に パタ 
ー ン を 移動 表示 する プロ グラ ム で ある . 

X 方 向 は Y 方 向 に 比べ 移動 量 が 小さき い の で , 動き を 均等 に す 
る た め , XX 方向 の 移動 量 を 4 倍 に し て いる こと に 注意 . 
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2.4 








例 


160 ま で を 実行 し た 


プロ グラ ム P2.4 の 行 100 








し 」 
円 運 動 


斜 に 移 動き せる の を , も う 少 し 工夫 する と, 円 運動 を さ ふせ る 
こと が で きる . つぎ の 例 で , 点 を 表示 する PSET 文 を 用 いて 
黄色 の 点 で 円 を 描く (プロ グラ ム を 示す . 


10 ! P2.5 エフ ウッ トウ 

20 

30 ! 

100 SCREEN 0:CLS 

20 『* 

130 FUR TH=0 TU 6.28 STEP .1 
140 X=320+150wCUS(TH) 

150 Y=100+60*STNTH) 

160 PSETX,Y,6〉 

180 FUR T=1 TH 5O:NEXT T 
200 NEXT TH 


この 例 で は , SCREEN@ 0 で 指定 する 8 色 モ ー ド (640X200 
ドッ ト ) の 場合 で 実行 し て みる . 

X, Y の 初め の 値 と し て , それ ぞ れ , 320 と 100 を 与え , 円 の 中 
心 位置 を 。 スク リー ン の ほぼ ば 中心 に 設定 する . 

円 を 真 円 に 近く する た め , 双方 向 , Y 方 向 の 径 の 長き を, を 
れ ぞ れ 150 と 60 に し, 見 や すい 円 形 に な る よう に 調節 . この 値 を 
変え る と 椿 円 形 に な る . 

角度 9 に 相当 する 変数 は , 紅 度 法 (ラジ アン ) を 用 いて いる 
た め , 0 一 2 ァ の 値 を と る . 

以上 を 実行 する と , つぎ の よう に , スク リー ン の 中 心 に , 黄 
色 の 点 で , 円 形 が 表示 きれ る こと に な る . 





2.5 円 運動 15 


PSET 文 は つぎ の よう に 使う . 


PSET (X, Y, カラ ー コ ー ド , 表示 機能 ) 


トーー 朱 の 表示 位置 し 省略 可能 





ここ で 円 運動 を あき せる の に , 点 の 表示 位置 X, Y を 求め る の 
に , 三角 関数 を 用 いて みた . 





点 の 表示 位置 


隊 





これ まで , LOCATE 文 で 指定 する 文字 の 位置 は , XX 方 向 が 0 
ー79, Y 方 向 が 0 一 24 で あっ た . 

し か し , PSET 文 で 指定 する 点 の 表示 位置 は .。 グラ フィ ッ ク 
座標 し な り , つぎ の 広 さ を 持つ . 











16 2. 動き の ハウ ツウ 


200 ド ッ ト : 640X200 ド ッ ト 


SCREEN @ 0 で 指定 する 8 色 モ ー ド の 場合 





ーー 640 ド ッ ト 


200 ド ッ ト ! 320X200 ド ッ ト 





SCREEN@ 1 で 指定 する 4096 色 モー ド の 場合 
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T 


ここ で は , 画面 上 の ラン ダム ( 不 特定 ) な 場所 に "*" の っ 
ー ク を 表示 し て みょう. その た め に は , まず ラン ダム な 場所 を 
求め る 命令 を 知ら な けれ ば な ら 6 ない . 


メーRND *79 


この よう な 文 を 実行 する と , X に は 0 一 79 ま で の で た ら め な 
数 が 割り あて られ る. これ を X と Y に つい て , 画面 の と り 得 る 
値 を 最大 値 と な る よう に , 行 150 の ご と く 〈 実 行 す る と , 画面 上 の 
任意 の 場所 X 列 。 Y 行 に "*" が 表示 され る こと に な る . 


10 !  P3.1 ランタ"/ 上 ョ ウシ 


20 * 

30 『 

100 SCREENG 0:COLUR 2 : CLS 

110 人 EMI お =" 11 

120 LINE(0.0〉-〈639, 199) ,PSET, 6,B 
130 ・* 


140 FOR _N=1 TH 40 
150 X=RND*78+1 : Y=RND*22+1 
160 LUCRTE X,Y : PRTNT a$ 


170 FUR =1 TH 100 :NEXT T 
180 LOUCATE X,Y : PRINT B$ 
190_ NEXT N 


200 CHLOR 7 : CLS 
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ラン ダム に 表 


3.1 






































スク リー ン い っ ぱい に , ヨッ パラ イ が フラ フラ 歩き 回 る 様子 


を 表示 し て みよ う . 


10 

20 

30 

100 
110 
120 
130 
140 
150 
160 
170 
180 
185 
190 
195 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 


りり PE の 。 2 の 6 りー ク 


SCREENQ 0:CHLHR 5 : CLS 
人 も = り まけ : B$=! リロ 
X=40 : Y=12 


LTNE〈0.0)-〈639,199) ,PSET,6,B 
U 


FHR N=1 TH 200 

R=TNTCRND*4)+1 \ ie 1 

HN R GUDSUB 270,280,290, 300 
TF X<=0O THEN X=X+1 :GUTU 160 
TF X>=79 THEN X=X-1:GHTD 160 
TF Y<=0 THEN Y=Y+1:GUTH 160 で 境界 を 越え な いよ 
TF Y>=24 THEN Y=Y-1:GOTD 160 うに 規正 
LUCATE X,Y : PRINT a$ 

FUR T=1 TU 100:NEXT T 





LUCATE X,Y : PRINT B$ 
NEXT_N 
COLQR 7 : CLS 


END 

5 

X=X+1] : RETURN 

X=X-1 : RETURN ョ ヨロ ケル 歩幅 を 決め る 
Y=Y+1 : RETURN 

Y=Y-1 : RETURN 


この プ ブログ ラム を 実行 する と, ヨッ パラ イ 役 の クロ ー バ ・ マ 
ー ク が , ヒ ョ ロ ヒ ョ ロ と 歩き 回 る . 
この ブロ グラ ム の ポイ ント は 2 つ あ る . 





3 の ラル ダム ウォ ー グ 女 


第 1:1 一 4 の 乱数 を 行 160 で 発生 きせ , 行 170 の GOSUB 文 
で , 選ば れ た 乱数 に 対応 し , 上 , 下 , 左 , 右 へ 動 《 た 
め の サ プ ブ ルー チン 行 270 一 行 300 に 分 岐 き せ て いる と こ 
み . 


・ 行 180 一 行 195 ま で の と ころ で , 境界 を 越 を た うに な っ 
た ら 6, 引っ ぱり も ど し て いる と ころ . 


選 
ト っ 


か くし て , ヨッ パラ イ 君 は 。 ドブ に も 落ち ず に , フラ フラ と 
無事 (? ) に 画面 上 を 散 索 で きる こと に な る . 













































































左右 に 反映 


ボー ル の 移動 は X 方 向 の 値 を 変化 させ , 


ぇ を する こと に より 達成 で きる . 


X の 減少 する 方 向 





X の 増加 する 方 向 








ー ル を 左 有 に 選 射 きせ る に ほど うす れ ば よい だ ち う . テ 
ニス ・ ゲ ー ム 。 ブ ロッ ク く ず し な どの ゲー ム は , この ボー ル の 
移動 , 反射 の 動き を 使っ て いる . 一 見 難 か し を うな 動き も , す 
べ さて これ まで の テク ニッ ク を 応用 すれ ば よい こと が わか る . 


反射 し て , 方 向 を 変 
ぇ る の は 。X の 値 を 増加 きせ る の か , 減少 きせ る の か の 切り 変 


〇 ポール 





10 

20 

30 

100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
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P3.3 ハン シャー ニー ウッ トリ ウ 
D : 進 む 方 向 を 示す 変数 
DT : ボー ル の 進む スピ ー ド を 示す 変数 
SCREEN 0:CHLHR 5 : CLS 
谷 も pPO り 1 B$= リ FV 
X=40 : Y=12 : D=-1: DT=200 
LINE(0,75)-( 了 7,125) ,PSET , 4 ,.BF も 3 ほ 
LTNE て 632, 75) - て 639, 125) , PSET , 4,BF ) 右 在 の カベ べ の 表示 
U 
FUR N=1 T 500 
X=X+D 
TF X<=1 THEN GUSUB 270 “で の カ べ に ぶつ か れ ば 行 270 へ 
TF_ X>=78 THEN GUSUB 270 と 右 の カ べ に ぶつ か れ は ば 行 270 へ 
LUCATE XY : PRINT Ra$ 
FUR T=1 TH DT:NEXT < し だ い に 速 く 移動 させ る た め の 


LUCATE X,Y : PRTINT B$ タイ マー 
NEXT_N 
COULUR ?7: LHCRTE 0,.0 


END 
LU 
D=D*※〈-1) ぐ 方 向 反転 


DT=DT-50  … タイ マー の 値 を し だ い に 小 さく (速く ) す る 
RETURN 


行 170 の X ニ X 十 D が 。 ボー ル の 進む 方 向 を 決め て いる . す な 
わ ち ,D が 十 1 の と き は ボー ル は 石 へ ,ー 1 の と き は 左 へ 進む こ 
と に な る . この 切り 変え は , 行 270 で 行う. 

行 180. まだ は 190 で , ボー ル が 避 ま で きた こと を 判定 し , 克 
に 楽 な ととろ Y 行 270 へ 行 て 、 こと で 、(+ 1) を DE 掛 で い 
る が 。 これ に より , D の 待 号 が 反転 し , ボー ル が 反射 する 動き 
だ づい ぁ と と に が ぁ 。 


この プロ グラ ム を 実行 する と , ボー ル は 反射 する 度 ご と に ス 
ビード を 増す が , これ は , 行 210 で , ブログ ラム の 次 の ステ ッ プ 
に 進む た め の 時 間 間隙 を 調整 する タイ マー (FOR…NEXT に よ 
る ルー プ 文 ) に よっ て 実現 し て いる . 
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ここ で は , スク リー ン 上 に 表示 し た 枠 の 中 で , ボー ル が 勝手 
な 方 向 に 反射 し な が ら 6 運動 す る プロ グラ ム を 体験 し て みる . 


例 に よっ て , 勝手 な 方 向 は , ラン ダム 関数 (RND) を 用 い 
て , 次 の よう に 8 方 向 を 選択 する 方 法 も を と る こと に する . 








ボー ル が 諾 壁 に 当っ た と き の 反 射 方 正 
ボー ル が 右 壁 に 当っ た と き の 反 射 方 丘 
ボー ル が 天井 に 当っ た と き の 反 射 方 自 
ボー ル が 床 に 当っ た と き の 反 射 方 向 
































ウロ の ロタ 


必 
グ N 


ボー ル の 反対 点 に お ける ボー ル の 進む 方 向 


ボー ル の 進む 方 向 は 8 方 向 だ が , 吾 で の 反射 を 考え る と, 反 
射 の 方 向 し し て 一 度 に 選択 する 方 向 は 3 通り で よい こと が わか 
る . 





3.4 ラン ダム お 反射 。25 


AA の ケー ス で 考え て みょう. これ は ボー メル 左 壁 に 当っ て 反射 
する 場合 で ある . ボー ル は 図 の よう に , 左向き に 進み , 左 壁 に 
当っ た 場合 、 も ふう それ 以上 左 に は 行け な いこ と か ら , ボー ル の 
衝突 し た 時 点 で は , 図 の ①ー③ の 方 向 を 考え れ ば よい こと に な 
る . 





以下 同様 で . どの 灯 に 当っ た 場合 で も , 次 の 進む 方 向 は 3 通 
り を 考え れ ば よい こと か ら , ボー ル の 反射 に よ る 選択 は , 行 340 
て 。 1, 2 3 の 3 つの 数 を 任意 に 選ぶ 乱数 に よ っ て 実現 し て 
い る. 


ボー ル の 反射 後 の 進む 方 向 は , 行 360 以 下 の 8 行 の 8 本 の サブ 


ルー チン で 決め て いる . 



































③ 
生 の 方 向 X の 進み 幅 | Y の 進み 幅 | 参照 行 番 号 
① 1 0 360 
| @ 1 1 370 
、| 0 。 | -1 380 
⑤ |] | っ 4 ニー 390 
| ⑤ こ f 0 400 
⑥) 和 草 コ 1 410 
⑥ ⑧ ⑦ 0 1 420 
⑦ ⑧) ] 1 430 




















ボー ル の 進む 方 向 ボ ポール の 進む 方 向 と , X, Y の 進み 幅 の 値 
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10 

20 

30 

100 
110 
120 
1 30 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
4 30 


U 
LU 
W 





P る 3.4 ラッ クタ 2" ム ナ パン ツウ ャ 


SCREENQ 0 : CLS: DEFINT 人 2 
LINE〈0.4)-〈639, 195) ,PSET,4、B 
LINE(5,6)-(634 ,193) ,PSET, 4.B ? 枠 の 表示 
PATNT(1.5〉 4 

AA$= り WEB$= り 0 り :X=40:Y=12:DX=1 

FDR N=1 TH 1000 


X=X+DX : Y=Y+DY 

TF X<=1 THEN GUSUB 340 ELSE 200 
HN K GUSUB 360,370.430 

TF X>=78 THEN GUSUB 340 ELSE 220 
DN K GSUB 390,400,410 

TF Y<=1 THEN GUSUB 340 ELSE 240 
N K GUSUB 410,.420,430 

TF Y>=23 THEN GHSUB 340 ELSE 260 
DN K GDSUB 370,380,390 


LUCRTE X.Y : PRINT $ “… ポー ル の 表示 
FDR T=1 TU 5O:NEXT 「 
LUCATE X.Y : PRINT B$・ 前 の 位置 の ボー ル を 消去 
NEXT_N 
END 


! サフ "ルー チ ソ 
K=INTCRND*3)+1 : RETURN ・ 反射 する 方 向 の 選定 
U 


DX=1 DDYQO 了 RETURN 
DX=1 :DY=ー1 : RETURN 
DX=O :DY=-1: RETURN 
DX=-1 :DY=-1: RETURN | 反射 し た 場合 の X, Y の 
DX=-1:DY=O : RETURN 進み 幅 を 決定 

DX=-1 :DY=1 ・ RETURN 
DX=0 :DY=1 : RETURN 
DX=1 *DY=1 RETURN 





3.4 ラン ダム な 反射 27 















































ト KI ス ー 
ハハ 


和 









4|(. 1 
ケム ハリ を 反 く 


パソ コン は 楽し い コ ンピュータ で ある . 一 般 の 大 型 コ ン ピ ュ 
ー タ や ビジ ネス 用 の オフ ィ ス コン ピュ ー タ と 一 寸 ち も が う の は , 
簡単 に 美しい グラ フィ ックス を 楽し め る と ころ だ ろう 2. 

ここ で 示す 例 は , その 楽し い グ ラフ ィ ッ ク の 一 例 で , 家 か ら 
ケム リ が モク モク 出る と ころ を 描い て 《 く れる. 

LINE 文 で 家 を 描き , CIRCLE 文 で ケム リ を 描い て いる . 円 を 


描く と き 。 その 中 心 位置 と 半径 と を 変え る と , ケム リ に 早 変 り . 


10 「 P4.1 SMOKING HUUSE 

20 ! 

30 ! 

100_ SCREEN 0 :CLS 

110 COLOR ?7.0 

120 CIRCLE(50,25), 30.6,・ ュ F 

130 "ウチ ナ すう エ が アク 

140 LINE〈100,185)-〈180.125〉,PSET,?.B 
150 LINE -(140,85),PSET, 7 

160 LINE -〈100,125〉,、PSET, 7 家 を 描く 
170 LINE110,160)-〈125,130),PSET,?,B 
180 LINE〈155,160)-(170,130),PSET,7・B 


190 CIRCLE(134,15?) ,5,6 ご 月 を 描く 
200 LINE〈160,105)-〈160,90〉,PSET,7 
210 LINE -〈175.90),PSET,7 エン ト ツ を 描く 


220 LINE -〈175,120),PSET,7 
230 PATNT〈130,.120).2.7 

240 PAINTC115,150),1,7 

250 PAINTC160.150〉,1,7 

260 ! ケ ムリ 3 エ カ リク 

270 FOR =1 TH 40 

280  X=TNTCRND(1)*20) SG 和 の 
250 YaTNTCRNDC2〉*5) ) ケム リ を 描く た め の 円 の 中 心 位置 を 指定 
300  R=TNTCRND〈3) )+T < ケム リ を 描く た め の 円 の 半径 を 指定 
310 。 X1=X1+X : Y1=Y1+Y (し だ い に 大 きく ) 
320 。 CTRCLEC167 イ +X1 , B9-Y1),R,4 ー ケム リ を 描く 

330 NEXT 
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10 『 
20 " 
30 " 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 





CIRCLE 文 を 使っ て , アニ メ を 楽し か こと が で きる . つぎ の 
簡単 な プロ グラ ム を 入力 し て , 実行 し て みょう . 


P4.2 カエ UM ノ 了 アニメ 


SCREENg 0 : CLS 
CIRCLE て 320,105) .220.4,.15:PATNT(320,105),4,4 
CIRCLE(420.60).60,.4,.6:PATNT(390.60).4,4 
CIRCLE〈230.60) , 60.4..6:PATNT(260.60〉.4,4 
CIRCLE(320,55) , 150.0,,」.1,.4 
CIRCLE(230.,60) ,25,0, .6, .05,.95,F の 
6 > 画面 A の 表示 
FUR 1=1 TH 5 
CTRCLE(420.60) , 25,0, .6, .05, .25、F 
CIRCLE(320,22) , 200.0,,.135, . 365 
FR T=1 TU 800:NEXT T 
CIRCLE(320.22) , 200,4,,.135, . 365 
PATNT(420,60〉,4 画面 B の 表示 (ウイ ンク ) 
CIRCLE(420.50).40.0,,.1,.4 
FUR T=1 TU 1500:NEXT T 
CIRCLE(420.50),40.4,,」.1,.4 
NEXT エ 
GDTU 100 





CIRCLE 文 し PAINT 文 に よっ て , カエ ル の 上 顔 を 描く ん こと が 
で きる . この 絵 を 右 の 写真 の よう に 2 枚 描け り る よう に し て , 交 
互 に 表示 すれ ば , ウイ ン キ ー・ カ エル の 出来 上 り . 


RE 


4.2 ウイ ン キ ー・ カ エル 8383 
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文字 で 描く 尺 取り 申 





文字 を 色々 な 形 で 表示 する こと に より , アニ メ 感 覚 を 実現 す 
る こと も で きる . 文字 を 表示 する と き は , PRINT 文 や 用 いる 
が , ここ で , 一 寸 変 わっ た 趣 興 で , SYMBOL 文 を 使っ て , 文字 
を 色々 な 形 に 変形 表示 し , 面 哲 い 効 果 を 出し て みよ う . まず は , 
SYMBOL 文 の 使い 方 か 6. 


SYMBOL(X,Y), "文字 列 ", 文字 の 横幅 , 文字 の 縦長 , 
色 コ ー ド , 表示 角度 , PSET 

PRESET 

AND 

OR 

XOR 

NOT 





この SYMBOL 文 を 使っ て , "COMPUTER" と いう 女池 列 
を , つぎ つぎ に , 延ばし た り , 縮め た り し な が ら , 前 に 進め る 
プロ グラ ム を 作っ て みた だ た. あたかも, 尺 取 り 虫 が . 進む よう に , 
表示 され る の は , SYMBOL 文 な ら で は の 機能 で ある . 

つぎ の プロ グラ ム を 実行 する と , し ば ら 《 は 画面 上 に 何 も 出 
て こない が ,。 や が て , 左手 か ら , し だ い に 1 文字 ずつ 次 を 現 わ 
す の で , じっくり と な が め て も らい た だい . 





10 " 
DF 9 
30 ! 
100 
110 
120 
1 30 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
5?70 


4.3 文字 で 描く ぐ 尺 取り 虫 35 


P4 .3 "CUMPUTER'「! シャ クト リム ジー ノ アニメ 


SCREEN 0 : CLS 
DIM H〈8〉,V(8),C$(?), CHL7 う 
FR T=0 TU 7 
READ C$( エ T),COL( エ ) 
NEXT 
XN=0 
FOR _N=O0 TH 7 
RESTHRE 540 
! イク ョ 5 }) 
FR ST=O TO 2 
X=XNT+N※112 
FOR T=0 TH ? 
READ _H〈1t〉,V〈( エ う 
NEXT エ 


FDR C=O0 TH 7 
DX=82^H(C): Y=150-9*2^V(C う 
SYMBHL(X-DX,Y),C$(C),2^H(C),2^V(C),CUL(C う 
X=XーDX 
NEXT C 
FDR T=1 TH 1000 : NEXT T 
CLS 
NEXT ST 
! 了 アク ショ ン 2 
FUR ST=3 TH 4 
X=XN- 152+N112 
FOR T=O TU 8 
READ HI〉,V(E) 
NEXT 


FOR C=7 TH 0 STEP -1 
DX=8*2^H(C+1): Y=150- の 22V〈C) 
SYMBULCX+DX,Y) 、C$(C),2^H(C う ,22V(C う ,CUHL(C) 
X=X+DX 
NEXT C 
FR T=1 TU 1000 : NEXT T 
CLS 
NEXT ST 
NEXT _N 
! ヒ ョ ウシ" ヨウ チ " 


> 
| の びる モー ショ ン の 
DJ 横 , 縦 倍率 の デー タ 
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580 DaTA 2.0.2.0・1・1.1.2.1・2・1・1.2.0,2.0・0・0、 ち じ む モ ーション の 
590 DATA 2.0.2.0.2.0,.2,0,2.0,2.0.2.0,2.0.0.07 横 . 縦 倍率 の デー タ 
写真 の ① わ ー⑤ の 動き を サイ クリ ッ ク に くり 返し 実行 きせ る と 


ころ に 注目 る きれ た い . 

初め は R の 文字 を ピボット に 和英 を 縮め , 次 いで C の 文字 を ピ 
ボッ ト に し て , ウー ン と 延び る 動作 を くり 返す . この よう に し 
て , 尺 取 り 虫 の よう に 前 進 運動 を きせ る と ころ に 工夫 も し て い 
る 。 


ご ロロ ビリ ロイ ER 





⑤ 


ご ロロ ロロ イヒ ビ に R ド 





3/ 


[4 


150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 


ボー ル の ゆ ぐ え 





椿 円 の 軌跡 上 に, ボー ル を 描い て は 消し て ゆく こと に より , 
ボー ル の 動き を 描く こと が で きる . つぎ の プ ブログ ラム は , ボー 
ル が は ずん で , だ ん だ ん , は ずみ が 小さ きく な り , や が て 転がっ 
て いく 様子 を 描 じ た も の で ある . 


P4.4 RNTIMRTTIHN OF BHLL MOVEMENT 


SCREENQ 0 : CLS : LOCaTE 25.0 
X=0 
FOR a=100 TO 0 STEP -40 
FHR TH=0 TU 3.14 STEP .2 
0 頂 円 軌跡 の 上 半分 上 の ボー ル の 
Y=150- 人 STNTH) Ok 
CTRCLEX,Y)、 5,2 
PATNTX,Y) ,2,2 
CTRCLEX,Y),5,2。、、、,PRESET 
NEXT TH 














FUR TH=3.14 TO 6.28 STEP .2 
X=X+ イ 8 呆 

上 円 軌 踊 の 下 半 分 を 上 ・ 下 折り 

Y=150-aBS〈〈A-20)*STN(TH) ) es AM 
ETRELECX,Y う 。 5.2 9 








PATNTCX,Y),2.2 様子 を 守 示 
CTRCLECX, Y〉.,2,,、,,PRESET 
NEXT TH 
NEXT a 


























38. 邊 アカ ニメーション 





ボー ル の は ず む 様子 (途中 ) ボー ル の は ずん だ 軌 貴 























皇 ーー 三 ーー = ーーー ーー ーー 
LE: 坦 条 (8 
に: ーー Eu 
を ss 


SS 一 


40 





ゲー ム に は 色々 な キャ ラク ター・ パ ター ン が 登場 する . 精密 
な 図 の も あの や カラ ー フ ル な も の な ど , 特徴 の ある も の が 考え ぇ 出 
され て いる . し か し , 精密 な も の だ けが 良い の で は な い . 次 の 
例 は , 簡単 に パタ ー ン を 表示 する 一 例 を 示す . 
文字 パタ ー ン に は , ABC…… ク か ら ア イツ ウ …… ン 等 の 文字 
や 。 ハ ー ト や スペ ー ド な どの 文字 パタ ー ン が 使え る よう に な っ 
て いる . これ ら の 各種 パタ ー ン を 組み 合せ る こと に より , つぎ 
の よう に 簡単 な パ マター ン を つく り 出 すこ と が で きる . 工夫 し だ 
いや 。 い * 6 で も 面目 い パ ルー ジ が 。 つぎ つき と 上 ス み グリー シト 
に 浮 び あがっ て くる は ず で ある . 


10 !' PB. 1 モツ "ハク ター ン ノ サク セイ 

20 『" 

30 ! 

100 SCREENQ 0 : CLS 

110 H$=" ぁ り 

120 M$= り "るり 

130 B1$=UkU EiB2$= り @" 

140 T1$= リ - ロ UET2$= リ く > iT3$= リ 
150 J1$=! + 0:J2$= リ ローー く ロ >ーー ロ "| 
160 " ヒト ノ ヒョウ シ Y 

170 LHCRTE 50.4 : PRINT H$ 

180 FUR T=1 TH 500:NEXT T 

8 * ミサ イル ノ 上 ョ ウッ Y 

190 LUCRTE 50,.7 : PRINT M$ 

200 FOR T=1 TO 500:NEXT T 

205 " "の フリ ッ ー ノ 上 ョ ウパ 

210 LUCATE 50.10 : PRINT B1$ 
220 LUCATE 50,.11 : PRINT B2$ 


230 
ジロ 
240 
250 
260 
270 
275 
280 
290 
300 
310 
320 
330 
340 
350 
360 
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FOR =1 TH 500:NEXT T 
M っ シャ ー ノ ヒョウ シリ 
LUDCATE 50.15 : PRINT T1$ 
LOUCATE 50,16 : PRINT T2$ 
LUCATE 50.17 : PRINT T3$ 

FUR 「=1 TO 500:NEXT T 
セン トウ キー ノ ヒョウ シド 
LUCATE 50,20 : PRINT J1$ 
LUCATE 50.21 : PRTNT J2$ 

FUR T=1 TO 1000:NEXT T 
LUCATE 25.4 :PRINT"〈1) 
LUCRTE 25,7 :PRTNT (2) 
LUCRTE 25.10:PRTNT"( る 3) 
LUCRTE 25,15:PRTNT"(4) 
LUCATE 25.20:PRTNT (5) 


ヒ ト ! 
ミサ イル "| 
ルリ クタ ドリ 
セン シャ リ " 

セ ウ トウ キリ 























し .」 


シン ボル の 活用 





SYMBOL 文 を 使う と , 文字 の 大 き さ を 色々 と 変え たり, 文字 
表示 を グラ フィ ッ ク 座 標 の 任意 の 場所 に 表示 し た り , 表示 の 瑞 
き を 変え た り , 表示 を の も の に バラ エ テ ィ を 持 だ な せる こと が で 
きる . を の 一 例 と し て , トラ ンプ の パタ ー ン を 描い て みょう. 


10 ! PF5.2 シン ホル = ヨル トラ ッ 27 ノ ヒョウ ウッ" 
2 ! 
30 " 
100 SCREENQ 0:CULUR 7,1:CLS 

110 LINE〈230,50)-(410,150),PSET,7,BF 
120 CHLUR 2 





130 SYMBOL(285,88),"W り 8,4.2.0,PSET 
140 SYMBHL(240.58). "0 1.1.2.0.PSET 
150 SYMBDL(240.68), り 便り 1.2.0,F 「 
160 SYMBOL〈400.1422, 70 1,1.2.2。 

170 SYMBHL(400,132 う 0W り 1,1.2.2, 雪 


(230,50) 
(240,58) イ 的 | 


(240.68) 丁 





(285,88) 


トノ 


山上 (400,132) 
ILL(400, 142) 


(410,150) 
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|[. 3 


グラ フィ イッ フ ・ バ ター ン の 保存 と 表示 





より 精密 な グラ フィ ッ ク ・ パ ター ン は どの よう に , 表示 , 保 
存 す れ ば よい の で あろ うか . ゲー ム に し て も , 学習 用 , ビジ ネ 
ス 用 で も , より 美しい 画面 構成 を する に は , より 美しい グラ フ 
ィ ッ ク 図 形 は 欠か せな い . 

一 度 作 っ た グラ フィ ッ ク 図 形 を 保存 し て お き , 任意 の 場所 に 
手軽 に 表示 する こと が で きれ ば 素 晴 し い . この よう な 有 要望 を 可 
能 に し て くれ だ の が , 次 の GET@, PUT@ 文 で ある . 一 度 スク 
リー ン 上 に 表示 し た 図形 は , GET@ 文 で , 前 も っ て 準備 され て 
いる 配列 変数 に と り 込 むこ と に より , いつでも PUT@ 文 で , 任 
意 の 指定 場所 に 表示 する こと が で きる . 


つぎ の 例 は , DATA 文中 に と り 込 ん だ , モグ ラ の 図柄 を , 指 
定 場所 に 表示 する プロ グラ ム の 1 例 を 示し て いる . 











44 5. パタ ー ン の 作成 


240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 


全う モク "フラ ノ E ョ ウジ 


SCREENQ 0 : MIDTH 80: DEFINT ^-Z 
DIM PAT(543〉 

FHR Ts=0 TU 271 

READ PATKI) 

NEXT + 

『 


TNPUT "上 ョ ウシ" ルツ ジョ ノシ テイ く XY フー iT 
TF X>579 HR Y>175 THEN PRINT" モ ウス コウ 
チイ サイ 了 アク イ ヲ ニュ ウリ ョ クシ テ クタ" サイ 17:GDTUD 160 
U 
PUTQACX,Y)-(X+59,Y+23) ,PAT,PSET 
GUTD 160 
W 


* エグ の "ラッ の "デー9 

DATR -1,-1,-1,.-1,-1.0.4095,-1,-1024.0,1023, 
-2,.0.0 

DATA 2047,-128,.0.0,8191,-4096.0,0,-4.0.0,3, 
-128.0.0,31 ,-4096,0,0,.254.0,3591.0 

DATA 2016,3,-3844.0.32256, 127,4064、7,ーB192, 
992, 3 る 1744,112.0,3075,0.224.0.0.0 

DATA 32512.0.0.15,-4096.0.0,255,-32768.0,0, 
ィ 936,0.0.0,.4064,0,0,127,-256,0.0 

DATA 4095,-2048.0.1.-256,0,0.0.0.0.0.0,0,.0., 
0.0.0.0.0.0,.15,-1,.0.0.8191,-1,-32768 

DATA 15,-1,-1,.0,1023,-1,-4.0,-128,-16,8176・ 
る 1 ,-16389,-513,-8320, 1015,-33,-16385 

DAT 31744,32639 , -3592 , -9, 185,-2052」 3843・ 
-130,127,32640、-4065,-2080,2044,- の 53 

DATA 31751 ,-512,.32764 1020,.1023,-B192,32767: 
ー1 ,-64,56, 16383,-1 ,960,1020,.4095 

DATA -49?,-1024.8191,-1,-1,-32768, イ ュー2,0・ 7 
ー1 ,-1 ,-512,60.2047,」-ー497,-16384, う 1 

DATA -1,-512,0,0.0,0.0,0,0.0.0.0.0.0.0.0・0, 
0.15.-1.0.0.8191,-1,-32768,15,ー1 

DATA -1.0,.1023,-1,-4.0,-128,-16,8176, う 1 
ー-16389、-513,-320, 1015,-33,-16385 

DATA 31744,.32639 , -3592 , -9, -8185, -2052, 3843, 
-1 30,.127,32640,-4065,-2080,2044 

DATA -993,-31751 ,-512.32764,1020,1023,-8122, 
32767,ー1 」-64,56, 16383,-1 

DATA 260,1020.4064,32271,-1024.8191,-1021。 
ー-1 ,-32768, イ ,ー16322.0, イ 7,ー2、2047 

DATA -512,60,.2047,-497,-16384,31 一 1,-512。 
248.B191 ,-1 ,-64,-3969,-1,-1,-16,0,0 
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ヒョウ ジ バシ ョ ノ シテ イ <X, Y〉>? 200,100 
ヒョウ ジ バシ ョ ノ シテ イ <X, Y> ? 300, 100 


(200,100) (300,100) 





ここ て 大 切な こと は , 表示 図形 の 大 きる (ドッ ト 数 ) に 応じ 
て , 表示 前 に , DIM 文 で , 必要 な だ け の メモ リ を 整数 型 の 配列 
変数 と し て 確保 し て お く 《 と いう こと で ある . 
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[. 1 


パターン ・ ジ ェ エネ レー タ の 設 





(1) パタ ー ン ・ ジ ェ ネ レー タ の 招 要 

ゲー ム ・ ソ フト を 作っ た り , 画面 に 美しい グラ フィ ッ ク ・ フ パ 
ター ン を 使い た いと き な ど , その パタ ー ン 作り に は 大 変 な 労力 
を 必要 と する . ここ で は , そん な 悩み を 解消 する , 手軽 な , パ 
ター ン 作 成 用 の ツー ル を 作っ て みた . 

1 文字 を 1 ドッ ト と し て 表示 し , 画面 全体 を 使っ て , 79x23 
ドッ ト の カラ ー パ ター ン を 作る こと に する . 


谷 め に , パパ ター ン の サイ ズ を 決め ," 十 "の マー ク で 表示 する 
カー ソル の 位置 に " 食 ” を 使っ て . ドッ ト を カラ ー で 拡大 表示 
し , 2Y タ ー ン を 絵 を 描く 感覚 で 作っ て いく . 完成 し た パタ ー ン 
は , フロ ッ ピ ー・ デ ィ ス ク に 保存 する こと が で き , いつ で も $, 
必要 な と き に と り 5 出し て , 表示 で きる よう に し て ちく 〈. 

本 文中 て 使う 、 い くつ か の パタ ー シ は 。 この パタ ダー ツ ・ ジ ェ 
ネ レ ー タ を 使っ て 作り 出し た も の で , 仲 々 便利 な も の で ある . 














(2) プロ グラ ム の 構成 


に , 各部 分 に つい て , 細部 の 説明 を し て お こう . 


プロ グラ ム の 全体 構成 





メニ ュー 選択 プロ グラ ム 


パタ ー ン 作成 プロ グラ ム 


パタ ー ン 保存 ・ 修 正 
プロ グラ ム 





(の 
















パタ ー ン 読込 ・ 表 示 
ロダ ラム 





6.1 パタ ー ン ・ ジ エネ レー タ の 設計 


本 プロ グラ ム は , 全体 的 に 4 つの 部 分 に 分 か れ て いる . 以後 
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(〈⑯ メニ ュー 選択 プロ グラ ム 
この 部 分 は , 全体 の ゲロ グラ ム の 導入 部 で , 以後 の いろ いろ 
な プロ グラ ム に 分 岐 き せる 役割 を 果たし て いる . 


( メニ ュー 選択 プロ グラ ム の 流れ 











ミレ ピュ 


初期 値 の 設定 


2, 3 の いずれ か て 選択 






パタ ー ン 作成 プロ グラ ム 


2 
EELZ2(O 


定義 防止 用 の スイ ッ チ . 配列 変数 CDM, PDM 1 の 








< 変数 の 説明 > 
SW 1 : 配列 変数 の 二 

















定義 が され て いれ ば SW1=1, 未定 義 で あれ ば SW1=0 
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10 ! P6.1 Pattern Generater 

20.* 

30 

1000 DEFINT -Z:SCREENG 0 

1010 

1020 " メニ ュ ウ カリ メン 

1030 * 

1040 SM1=0 

1050 

1060 MIDTH 40 : CULOR 6 

1070_ PRINT 氷 氷 氷 氷 5 カーン サク セイ フ 5 ロ 2 クリ ラム 氷 ※※ 氷 氷 り EPRTNT 
1080 PRINT" り リキ " ノ トリ レ カ う エラ ン テ " 2 クタ "サイ "EPRTNT 


1020 PRTNI""1。 "5 トッ ハル クー ワリ ニノ サク セイ " 
1100 PRINTP 妥 。 “で テ "・ ハ ? ター ンー ノ ヒョウ ツウ 『 リ 
1110 PRINTU3。 ・・ ド ーー・ END":PRTNT 


1120 K1$=TNPUT$ く 1) 
1130 UN VaL(K1$) GUTH 1180,.2120,2450 
1140 IF VAL(K1$ ぅ =<0 DR VAL(K1$)=>4 THEN 1060 


パタ ー ン 作成 プロ グラ ム 

この 部 分 は 。 パタ ー ン ・ ジ ェ ネ レー タ の 主要 な 機能 を 果たし 
て いる . X と Y て で 指定 し た 範囲 の 広 さ の な か で , カー ツル を 自 
由 に 動か し , 数 字 キ ー で カラ ー・ コ ユー ド を 指定 し , 美しい グラ 
フィ ッ ク ・ パ ター ン を 作成 する 部 分 を 実現 する プロ グラ ム で あ 
る . 

カー ソル マー ク の " 十 " を 自由 に 移動 きせ た り , 前 の 表示 結 
果 を 手軽 に 変更 で きる よう に する と ころ に , や や 工夫 を 妥 し た . 





52 6. これ は 便利 な パタ ー ン ・ ジ エネ レー タ 


パタ ー ン 作成 プロ グラ ム 










作成 する パタ ー ン の 大 き さ を 
X*Y の ドッ ト 数 で 指定 














ドッ ト の 表示 カラ 
列 変数 。 パタ 
配列 変数 の 定義 























ドッ ト の 表示 色 を 入力 


| ーーrome トー(pn) 


カー ソル を 左 へ 移動 
ドッ ト の カラ ー 表 示 





カー ソル を 右 へ 移動 
ドッ ト の カラ ー 表 示 









ソル を 上 へ 移動 


カ 
ドッ ト の カラ ー 表 示 













ソル を 下 へ 移動 
ッ ト の カラ ー 表 示 





カ 
ド 











1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1 300 
1310 
1 320 
1330 
1 340 
1 350 
1 360 
1370 
1 380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 


< 変数 の 説明 > 

PS1 :X*Y ド ッ ト の パタ ー ン を 格納 する 配列 の サイ ズ 

CDM : パタ ー ン 内 の 各 ド ッ ト の カラ ー コ ー ド を 格納 する 配列 
PDM : パタ ー ン 情報 を 格納 (GET@) する た め の 配 列 変 数 
CSX : ドッ ト を 表示 する 場所 を 示す カー ソル の X 座 標 位置 
CSY : ドット を 表示 する 場所 を 示す カー ソル の Y 座標 位置 
KY ・ ドット の カラ ー コ ー ド OR カー ソル 移動 キー 入力 用 変数 
FCSX:CSX の 1 つ 前 の X 座 標 位置 を 示す 

FCSY :CSY の 1 つ 前 の Y 座標 位 置 を 示す 

P$  : ド ッ ト の 位置 を 示す カー ソル マー ク 

















ま 

ハタ ーッ ノ サク セイ 

U 

CLS : LOCATE 15,4 

PRTNT' り リタ ーッ ノ サク セイ リ 

LUCATE 5,8:INPUT "< く 9 クー ッ サ イイ ー エ XY2 VIEXY 
TF X>80 QR Y>24 THEN 1200 
PS1=(〈X*Y+ イ )/8)*3 

TF SM1=1 THEN ERASE CDM,PDM1 
DIM CDM〈X-1 ,Y-1) ,PDM1 て PS1) : SM1=1 

W 


MTDTH 80 : CULOR ?7 

LINE(0,.0)-(B*X,8*Y う ,PSET, 7,B 

CSX=0:CSY=0:LUCATE CSX,CSY:PRINT"+ り ELUCATE CSX,CSY 
U 


KY=ASC(TNPUT$〈1)) 
TF KY>=&H30 AND KY<=&H3?7 THEN P$="+ リ : GUTOU 1740 
TF KYs&H1D THEN 1370 
TF KYsgH1C THEN 1470 
TF KYs&H1E THEN 1570 
TF KYs&H1F THEN 1650 
TF KY=&H1B THEN 1800 ELSE 1300 
『 く ーー 
CSX=CSX-1 : FCSX=CSX+1 : FCSY=CSY 
TF CSX=-1 THEN CSX=X-1 : FCSX=0 ELSE 1430 
COL=CDM(FCSX,FCSY) :CHLOR COL 
LUCATE FCSX,FCSY:PRTINT "Wi 


GHTO 1570 

LHCATE FCSX,FCSY :CULHR CDM(FCSX,FCSY う 

PRTNT "@ り ii LHCATE CSX,CSY : COLOR 7 | PRINTTTTi 
LCATE CSX,CSY 

GUTH 1300 

「 らち ーッ 2 

CSX=CSX+1 : FCSX=CSX-1 : FCSY=CSY 


TF CSX=X THEN CSX=0 : FCSX=X-1 ELSE 1530 
CUL=CDM(FCSX,FCSY〉 :CULUR CUL 
LUCATE FCSX,FCSY:PRINT "Wi 
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6. こ 


1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1650 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 





れ は 便利 な パタ ー ン ・ ジ エネ レー タ 」 
GUTU 1650 

LUCATE FCSX,FCSY:CHLUR CDM(FCSX,FCSY 〉 
PRTINT "@0 Ii CHLUR 7 PRINT の + リ 5 
LOCATE CSX,CSY 

GHTHU 1300 

) UP 

CSY=CSY-1 : FCSX=CSX : FCSY=CSY+1 

TF CSY=-1 THEN CSY=Y-1 : FCSY=0 
CUL=CDM(FCSX,FCSY う :CULUR COL 

LUCATE FCSX,FCSYEPRTNT "@ り 5 


CULUR ?:LUCRTE CSX,CSY:PRTINT P$::P$= リ オリ 
LUCATE CSX,CSY 

GUHTU 1300 

し DUMN 

CSY=CSY+1 : FCSX=CSX : FCSY=CSY-1 


TF CSY=Y THEN CSY=0 : FCSY=Y-1 
CUL=CDM(FCSX,FCSY う :CUHLUR CUL 
LUCATE FCSX,FCSY:PRINT "@ 
CULHR 了 :LUCRTE CSX,CSY:PRINT P$j:P$= リ + リ 
LUCATE CSX,CSY 
GOTO 1300 
2 カラ ニコ ー ド トド" ノシ デイ 
CUL=KY-&H30 
COLOUR COL 
PRINT "9Ui ECHLHR 7?: PRINT P$i : LHCATE CSX+1,CSY 
CDM(CSX,CSY) う =CUL 
GUTO 1470 


⑥ パタ ー ン の 保存 ・ 修 正 プ ログ ラム 

パタ ー ン が で き 上 る と , 決 に 大 切な こと は , 正確 に パタ ー ン 
の 情報 を シフ ァイル の 形式 で . フロ ッ ピ ィ ・ デ ィ ス ク に 保存 で き 
る よう に し て お く 《 こ と で ある . その た め に は , で き 上 っ た ノ パタ 
ー ン を, 一旦 , パタ ー ン 格納 用 の 配列 変数 に GET@ 文 で と り 込 
ん で お き , その 配列 変数 の 内 容 を デー タ と し て フロ ッ ピ イィ イ に フ 
ァイル 名 を 指定 し て 出力 する と いう 方 法 を と る . 

この よう に し て お ぉ おく 《 と , 必要 な と き に は , ファ イル を 呼び 出 
し て , 配列 変数 に と り 込 み , PUT@ 文 を 使っ て , パターン を 画 
面 上 の 任意 の 場所 に 表示 する と いう こと で , いつ で も 再現 き 
せる こと が で きる の で ある . 
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ーー 方, 画面 上 で の パタ ー ン は , いつ で も 手軽 に 修正 が で きる 
ょ うに し て お いた 方 が 良い し. これ は 一 応 実 現 き せ て お いた が 本 
プロ グラ ム で は フロ ッ ピ イ に 保存 し た パタ ー ン に つい て は , 修 
政 で きる よう に な っ て いな い 。 

これ は る そう 上 難 か し いこ と で は な い . フロ ッ ピ イィ に 出力 する と 
き に , いっ し ょ に カー ラー 情報 用 の 配列 変数 CDM も 保存 し て 
くく よ うに 書き 直し て お け ば , いつ で も 修正 が で きる よう に な 
る . これ は 読者 へ の 課題 し し て 残し て お こう . 


⑥ パタ ー ン の 保存 ・ 修 正 プ ログ ラム 


表示 パタ ー ン を 配列 変 
数 に 格納 






GET@ 文 に より 配列 変数 PDM1 へ 


保存 / 修 正 の 選択 





パタ ー ン を フロ ッ ピ イィ 
ディ スク に 保存 








5 


6 





6. ご れ は 便利 な パタ ー ン ・ ジ エネ レー タ 


1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 


9 9 ーッ / サウ セイ 
CLS 
FUR T=0 TH X-1 


FR J=0 TU Y-1 
PSET(T,J,CDM(T,」J)) 
NEXT J, エ 
9 AI ジー ウー ロウ 
LOCATE 50.0:PRINT イレ ルツ フ サイ X ス ツー = "iPS1 
GETA (0,0)-(X-1 ヤー1),PDM1,G 


PUTA て 300, 100)-( て 299+X, 99+Y) ,PDM1 ,PSET 
CULOR 7 
LCRTE 0,20 
TNPUTU く 1: ホリ リフ / 2: ジュ ウ セ イ > "5 SM2 
ON SM2 GUHTH 1930,2030 
ハタ ー フ ーー グ ホソ リフ 
MIDTH 40 : CULOR 4 
LOUCRTE 15,.0:PRINT リリ イル ツー フ サイ スリ " = iPS1 
LCRTE 5,10:TNPUT" く AS ター ンー ノ ナマ エア: 日 モジ" イナ イ > iPNR1$ 
UPEN 時 1,PNA1$ 
FOR T=0 TO PS1 
PRTNT 時 1,PDM1(T う 
NEXT 
CLOSE 
GOTU 1060 
す 


MTDTH 80 
FOR _DY=O0 TU Y-1 
FUR _DX=0 TH X-1 
LUCATE DX,DY:CHLUR CDM〈DX,DY):PRTNT "@ 
NEXT_DX,DY 
GOTH 1270 


⑥ パ ター ン 読 み 込み ・ 表 示 プ ログ ラム 

フロ ッ ピ ィ に 保存 し た パタ ー ン を 再現 きせ る プロ グラ ム で あ 
る . 

スターン 情報 を デー タ ・ フ ァイル と し て フロ ッ ピ ィ 上 に 保存 
し て ある の で , その 内 容 を 再び パタ ー ン 表示 用 の 配列 変数 に 
と り 込 め ゆば, その まま 再 表 示 が で きる わけ だ. 

ここ で , 必要 な こと は , 前 に 保存 し だ た パ ター ン の 大 きき ヨコ 
の ドッ ト 数 (X) と 縦 の ドッ ト 数 (Y), お よび , 保存 し た と き 
の ファ イル の 名 称 を 正しく 覚え て お か な けれ ば な ら な いと いう 
こと で ある . 


2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 


6.1 パタ ー ン ・ ジ エネ レー タダ の 設計 


⑥ パタ ー ン 読込 ・ 表 示 プ ログ ラム 
































< 変数 の 説明 > 
SW3 : パタ ー ン 読込 み 用 配列 変 定義 / 未 定義 用 スイ ッ チ 
PDM2 : パタ ー ン 読込 み 用 配列 変数 





























JP フェ ウリ ノ ヨミ コミ ′/ ヒョウ 99" 


SU3=0 
DEFTINT 弁 -2 


MTDTH 40 : CHLOR 6: LUCATE 5,10 

PRTNT 「 水 水 氷 ポ 氷 バム ニッ ノ 2 ヒョウ ジリ 率 氷 氷 氷 り に PRTNT 
LOUCATE 5,12:PRTNT" く 1 : ハウ ター ヲ ヒョウ ジリ" ルッ > 
LUCRTE 5,13:PRTNT" く 21 メニ ュ ウ が メン ニニ モト YU> 
K2$=TNPUT$〈1) 

IF_ VALCK2$ う =<0 HR VaL(K2$)>=3 THEN 2160 
UN VaL(K2$) GOTH 2240,1060 





57 





568 





6. これ は 便利 な パタ ー ン ・ ジ エネ レー タマ 


2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 


LUCATE 5,15:TNPUT "< く 9 タク ーッ サ イス プー ロー X ュ YE Y 

TF X>80 DR Y>24 THEN 2240 

PS2=(( て XY+ イ )/ 日 )※ う 

TF SM3=1 THEN ERASE PDM2 

DIM PDM2〈PS2) : SM3=1 

COLOR 4:PRINT 
LUCATE 5,17:TNPUT" く JP ター ンー ノ ナマ エ ?:B モ ジ ツ ニー イ ナイ > iPNRZ$ 
W 


DPEN 「T リ 上 1,PN2$ 
FUR 1T=0 TU PS2 
INPUT 本 1 ,PDM2 て エ う 


NEXT て 
MTDTH 80 : COLHR 7 
LUDCATE 50.0 :PRINTUU ど ター フッ ノ ナマ エ = iPNA2$ 
LUCATE 50.,1:PRINT" リ イレ ルツ ノ サイ ス " = "iPS2 


PUT9A(400 , 100)-(399+X, 99+Y ) , PDM2,PSET 

LOCaATE 0,24 

PRTNT'" り キネ ニス スム トキ) 」 く キ ー> ブ トリ "し カ オシ チ クタ リサ イ リリ 
PK$=TNPUT$(1 ) 

CLHSE : GUTH 2160 

U 


MIDTH 80 : CHLHR ? : END 


以上 で , パタ ー ン ・ ジ ェ ネ レー タ の プロ グラ ム の 説明 を 終る 
が , ここ て 追加 的 に , も う 1 つ プロ グラ ム を 紹介 し て お きだ い . 

作成 し た パタ ー ン を 別 の プロ グラ ム 中 で 使い た いり 場合 , パタ 
ー ン の デー タ を , DATA 文 で . プロ グラ ム 中 に 書き 込ん で お け 
ば 便利 で ある . そん な 目的 の た め に , 一 度 フ ロッ ピ イ ・ デ イス 
ク の 中 に ファ イル の 形 で 保存 きれ だ た パター ン ・ デ ー タ を , DATA 
文 の 形 に プリ ンタ ー に 出力 する プロ グラ ム を 作っ て みた . つぎ 
の プロ グラ ム が を それ で ある . 簡単 な の で , 知っ て お いて 損 は な 
だ ろう 。 


10 

20 

30 

100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
12 
320 
330 
340 
350 
360 
365 
370 
380 
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9 カー ンー ノ ヨミ コミ ・ 。 ヒョウ シド 
DEFINT -Z: CLS 
LU 


LUCATE 5,.8:TNPUT "くく AP ター マサ イス ツイ アー ロー X ュ YEX4Y 

TF X>80 DR Y>24 THEN 120 

PS2=((XY+ 了 )/8)*※ 

DTM PDM2CPS2 > 
CDLUR 4:PRINT 
LUCATE 5,17:TNPUT" く JO ター ソー ノ ナマ エイ : 8 モジ" ニー イ ナイ > iPNR2$ 
L 


UPEN "1 HH1,PNA2$ 
FR T=0 TU PS2 
TNPUT 村 1 ,. PDM2 く T) 


NEXT r 
MIDTH 80 : CULOR 7 
LBCATE 50.0 :PRINTUP タ ーッ ノ ナマ エ = "iPNR2$ 
LHCATE 50,1:PRINT" リ イレ リー ノ サイ ス " = "iPS2 
PUTQAC400, 100)-〈399+X, の 9+Y) ,PDM2,PSET 
LOCATE 0,24 


PRTNT "リキ" ニス 入 ム トキ 用 」 < キー> トリ \ し カ オシ テ クリ サイ ! リ 
PK$=TNPUT$ て (1 ) 


CLUSE 
LU 
N=1000 
FUR T=0O TH PS2 STEP 8 
N=N+10 
LPRINT:LPRTINT STRS(NDi 9 PPDRTA い 
FUR J=O TH 7 行 番号 1000 か ら DATA 文 


LPRTNT PDM2 て エ +J): 
TF J<>7 THEN LPRINT "の 
NEXT J 
NEXT エ 


と し て , パタ ー ン 用 の デー 
タ を プリ ンタ ー に 打ち 出す 
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IL.」2 
パタ ダー ツン: ジェネ レー ツ を 使 つ て みる 









6.1 で 示し た プロ グラ ム を , 一 寸 大 変 だ が 正確 に 入力 する . 
入力 し た ら 6, すでに , 安全 の た だ た め プ ログ ラム を セー ブ し て お むく. 
ここ まで が 準備 の 段階 で 、 全て パー フェ クト に 完了 し た ら 5, 実 
行 し て みよ う . 


まず , メニ ュー 画面 が 出 て くる . 


理事 名 主事 パタ ー ン サク セイ プロ グラ ム 
ツ ツ ギ ノ ドレ カ ヲ エラ ン デ クダ サイ 


パタ ー ン / ノ サク セイ 
パタ ー ン ノ ヒョウ ジ 
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パタ ー ン を 新た に 作る の で , 迷わ ず , 1 を 選択 する . する と , 
2 パタ ー ン の サイ ズ を 聞い て て る. 























ここ まで 終 れ ば , すでに で も パタ ー ン 作成 に と りか か れる . 
カー ソル キー を 使い 。 カー ソル 表示 用 の " 十 " マー ク を 希望 す 
る 場所 に 持っ て い 〈《. そこ で , 数 字 キ ー を 0 一 7 の 範囲 で 押す 
と , 対応 する カラ ー コ ー ド で , 人 " 印 が 表示 され る . これ を 〈 
り 返 し 行う と と に よっ て 。 タ イル * パ メー シン が で き 上 る 4. 

つぎ に を その 一 例 を 示す . 

















四則 間 朋 旧 BBBHBB 旧 上 上 
上 昌明 有明 B 旧 BBHBBBBBBBBHBBH 有 有明 中 
Il 昌 上 上 上 有朋 腸 朋 昌明 旧 義 昌 昌 昌 昌 
IIHIMHHIHIHHI 有 HB 明 B 昌 明日 
山 L 晶 日 | 









1 
1 
Il 
Il 
四 
上 
邊 
Bl 
1 
l 請 昌 四 上 卓上 
1 
1 
| 
1 
1 
| 
罰 
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これ で , パタ ー ン の 作成 は 完了 し た こと に な る . 次 いて 
<ESC> キ ー を 押す と, 画面 上 の パタ ー ン が パタ ー ン 格納 用 配列 
変数 に 保存 きれ , 完成 し た パタ ー ン を , ドッ ト で 表示 し て くれ 
る 。 前 の タイ ル パ タ ー ン が , つぎ の よう に, ドッ ト ・ パ ターン 
と な る の で ある . これ が パタ ー ン の 完成 図 で ある . 


ハイ レツ ノ サイ ズ ニ 723 





く 1 ホ ゾ ン /2 : シュ ウ セ イ 〉? 目 





この 段階 F び は , いつ で も , も と の タイ ル パ タ ー ン を よび 出し 
て , パタ ー ン の 修正 を する こと が で きる . キャ ン バ ス に 向っ て 
いる よう に 工夫 し て , 自由 に 美しい パタ ー ン を 描き 出し て みよ 
の 

これ で よい と な れ ば , 一 旦 メ ニュ ー 画 面 に も どり , フロ ッ ピ 


ィ に 保存 し て , 一 連 の 処理 が 完了 と いう こと に な る . 








Pe 


gw 
こ D・ー 
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同一 場所 に 書い て は 消す 





時 刻 , 経過 時 間 , 得点 、 メ ッ セ ー ジ な ど は , 全て スク リー ン 
上 の 特定 場所 に , いつ で も 同じ よう に 表示 する こと が 多い . こ 
ん な 目的 の た め に は , LOCATE 文 を 使う に よっ て 効果 的 
に 表示 場所 を コン トロ ー ル する こと が で きる 

画面 上 に 文字 を 表示 する と , カー ツル が 移動 する の で , つぎ 
に 表示 する と き は , 前 の 表示 場所 の 次 の 場所 か ら 表 示 る れる . 
し た が っ て , 常に 同じ 場所 に 表示 する た め に は , を の 都度 カー 
ソル を も ど し て や ら な けれ ば いけ な い . その 働き を る せる の が 
LOCATE 文 で ある . 

例え ば , 時 刻 の 表示 は , 常に 一 定 場所 に 表示 し た い . し か し , 
つぎ の プロ グラ ム の 行 100 一 110 を 実行 し た の で は , た だ 画面 上 
を 時 刻 表 示 が 上 に 流れ る よう に 表示 る れる だ け で , 役に立た な 
い . 

や ゃ はり, 行 130 二 150 の よう に , 常に 同じ 場所 に 表示 する よう 
に する べき で ある . 行 130 二 150 の プロ グラ ム を 実行 きせ る に は , 
つぎ の よう に 入力 すれ ば よい . 

RUN 130 





} カー ソル 
11:59:00 古 


LOCATE 70,0 を 実行 
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この プロ グラ ム は , それ ぞ れ 行 100, 130, 170, 250 か ら は じ 
まる 4 つの プロ グラ ム か ら で き て いる . 行 170-230 は , 同じ 場 
所 に 表示 する な か で も , や や 表示 方 法 を 工夫 し て , 点滅 る せる 
よう に し た も の で ある . 表示 を 特に 注意 きせ た いと き な ど に 用 
いら れる 方 法 で ある . 

プロ グラ ム 上 で , 同じ 場所 に 書い た り 消 し た りす れ ば よい わ 
け で , 消す た め に は , 書い た 場所 に , 同じ 文字 数 の スペ ー ス を 
表示 する と いう 方 法 を と る . これ を くり 返せ ば 点滅 す る こと に 
な る . 点滅 の 早 き は , 行 190, 200 に 入れ た こと に よっ て , 簡単 
に 調節 する こと が で きる . 





66 


. 趣 曰 





表示 の ハウ ・ ツ ー 


き て , 最後 の 行 250 以 後 の ア ログ ラム だ が , これ は , SYMBOL 
文 を 使っ て , LOCATE 文 よ り , も っ と 細か く , 表示 位置 を コン 
トロ ー ル し て 表示 する 例 を 示す . この プロ グラ ム を 実行 する と , 
FM77AV の 字 が つぎ つぎ と 画面 か ら 突 び 出 し て くる よう に , 
だ ん だ ん 大 き て な り 訪 が 6。 ズー み ・ ア デップ し て て る 機 寺 が 見 


られ る . 


10 

20 

30 

100 
110 
120 
1 30 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 


EE 交 . は 


PRINT TIME$ 
GHTH 100 


LOCaTE 70.0 
PRINT TIME$ 
GUTO 130 


LHCATE 35,12 

PRINT "TIME IS UP !1! 
FHR T=1 TO 50:NEXT T 
LUCATE 35,12 

PRINT " 還 
FR T=1 TH 5O:NEXT T 
GUTD 170 

U 





CLS 
FUR_N=1 TU 6 
RERD a$ 
CULUR _N 
FUR エ =1 TO 25 
X=320-T4:Y=100-T* る 
SYMBHL(X,Y う ,$,T,T,N 
FDR T=1 TU 50:NEXT 
CLS 
NEXT エ 
NEXT_N 
DATA_F,M, 7,7,.,V 


6/ 


文字 パター ン を 使 つ て 表示 する 





文字 を カラ フル に 表示 する だ け で , な か な か 面白 い 表示 効果 
を 出す こと が で きる . ここ で は , 乱数 発生 用 の RND 関数 と , 表 
示 場 所 指定 の LOCATE 文 と , 色 指 定 用 の COLOR 文 を 使っ て , 
2 通り の パタ ー ン 表示 を し て みよ う . 

初め は , ご く 簡 単 な 例 で , 夜空 の 星 に 似せ て , 画面 上 の で 
た ら め な 位置 に , 星 を いろ いろ な 人 色 で 表示 し て は 消す プロ グラ 
ム を 実行 し て みる . 行 120-180 ま で が それ で ある . 

ロマ ンチ ッ ク な 量 空 し と ま で は いか な い が , RND 関数 を 使う 
と ,。 この よう に ラン ダム な 位置 に パタ ー ン を 表示 きせ る こと が 
で きる こと が 理解 され る と 思う . 





10 ! P7.2 

20 " 

30 ! 

100 ! ヨリ パラ フォ 
110 ! 


120 MIDTH 80 : CLS 

130 FOR N=1 TH 50 

140 LOUCATE 80*RND,23*RND :CDLUR イ *RND+1 :PRTNT "ki 
150 FR 1 エ =1 TH 40 





160 LHCATE 80*RND,23*RND:PRINTU り i 

170 NEXT 1 

180 NEXT N 

190 

200 LUCATE 24.10:PRTINT リリ キリ ニス 入 / ーーー> スキ ナ < キ ー> ヲ オス X。『"! 


210 K$=TNPUT$ く (1) 
220 " 
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230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 


『 ハ \ クル ツリ 
CLS:X=40:Y=12 











FHR_N=1 TH 6 
READ $,B$,C$ 

LU 
LHCATE X,Y:CHLOUR 
LUCRTE X+2*N,Yー-N: 
LUCRTE X-2wN,Y-N: 
LHCRTE X-2N,Y+N: 
LUCRTE X+2N,Y+N: 

LU 
LUCRTE X+2*N,Y 
LUCRTE X,Y-N 
LUCRTE X-2*N,Y 
LHCATE X,Y+N 

NEXT _N 

CDLUR 了 ?,0 

LU 


DRTR 水 , 十 , 旬 」 填 。 求 。 〇 の 。 水 」 借 十 。 圭 。 


CC う C) 0) ロ 


の 〇 ので) で 


NTCPR 
LOR 1 
ULUR 
LDR 
LUR Tr 








[ 
DLUR + 
[ 





T て (7?R 
NTC?7wR 


T て 7R 








T7*R 


D)+1:PRINT 


ND)+1 


TC7kRND)+1 : 
T(7RND う +1 : 
TkRND う + 








ND〉+1 : 
T7RND)+1 : 
ND う +1 : 


ND〉+1 : 


a$i 


:PRINT 


PRINT 
PRTNT 
PRTINT 


PRTNT 
PRTINT 


:PRINT 


PRINT 


寺 , 氷 。 氷 。 欠 。 十 , 十 。 念 , 〇 


B$ 
B$ 


B$: 


B$ 


* 


C$・ 


C$・ 


に ヒ $ 


* 
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行 240 一 410 は , 同じ よう に 文字 パタ ー ン を カラ フル に 表示 す 
る 例 だ が , 表示 方 法 を 中 心 か 6 外 へ 順次 表示 する よう に 工夫 し 
て いる . この サン プル を も と に する と , 花火 や , ミサ イル の 命 
中 シー ン 等 に 応用 する こと が で きる . 


O 二 ※ キ 〇 人 寺 〇 上 ※ 二 O 





文字 パタ ー ン の 移動 





文字 パタ ー ン を 組み 合せ て 表示 すれ ば , それ だ け で 一 つの 面 
自 w% パ ター シギ や 作り 出す と 上 が で きる こと は 前 で 学ん だ ( 5, 1 
参照 ). こ の よう に し て 作っ た だ パター ン を 1 組 の セッ ト で 移動 き 
せる こと が で きれ ば , 丁度 文字 で 描い た 絵 を 動か すこ と に な る . 

つぎ の プロ グラ ム で , その 1 例 を 試し て みよ う . この 例 は , 
二 行 を 使っ て 描い た ジェ ッ ト 機 の 文字 絵 で ある . この 文字 絵 を 
1 組 に し て , 数 字 キ ー を 押す こと で 簡単 に 移動 きせ る こと が で 
きる 様子 を 確認 し て も らい た い . 移動 の た め の キ ー 操 作 は , つ 
ぎの 絵 の よ うに な っ て いる 。. 

た っ た 10 行 の アゲ ログ ラム で , ジェ ッ ト 機 を 動か すこ と が で き 
る の だ . これ を ゲー ム プ ログ ラム に 組み 込め ば , 自作 ゲー ム の 
第 1 作 が で き 上 る こと に な る . 


10 "PFP イ る ニー モウ CYPT2- っ ナイ ドウ 

20 " 

30 

100 MIDTH 80 

110 J1$= リ " + リ | 2 お = リロ ーーー く 日 タ ーーー ロリ 
120 X=40:Y=12 

130 LUCATE X,Y  :PRTNT J1$: 

140 LUCATE X,Y+1 :PRTNT J2$: 

150 K$=TNKEY$ 

160 ITF K$="6 リ 0 THEN X=X+3 : GOUTH 200 
170 TF K$="40. THEN X=X-3 : GUTH 200 
180 TF K$=" ヨ 0 THEN Y=Y-1 : GOTH 200 
190 TF K$= り 20 THEN Y=Y+1 : GUHTH 200 ELSE 150 
200 CLS : GUTD 130 
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キー 操作 と 
パタ ー ン の 移動 方 向 qa 




















人生 
回 
5| [es] 
U 
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ジェ エッ ト 機 の 操 紙 





キー 操作 に よる ジェ ッ ト 機 の 移動 が で きる よう に な る と , も 
ぅ 少し 本 格 的 な 操縦 を や っ て みた く な る . そこ で , ここ で は , 
ー 寸 上 ぜいたく 《 を し て , 前 に 出 て きだ た パター シ ・ ジ ジェネレータ 
(6. 1 参照 ) を 使っ て , $ う 少 し 精密 な ジェ ッ ト 機 の パタ ー ン 
を 作り , いか に も 本 格 的 な ジョ イス ティ ッ ク を 使っ て , 操縦 用 
の 練習 用 プロ グラ ム (シミ ュ レ ー タ ) を 作っ て みよ う . 





ジョ イス ティ ッ ク 
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まず , こ の シミ ュ レ ー タ で 行う 操縦 の ルー ル を 説明 し て お こう . 
操縦 模 の 働き を する ジョ イス ティ ッ ク と ジェ ッ ト 機 の 動力 の 
関係 は 。 つぎ の 図 で 示す よう に し て ある . 実際 に は こん な 単純 
に は いか な い が , この プロ グラ ムイ 方向 感 覚 ど だけ で は 模 疑 的 に 
楽し め る よう に し て ある . 


(①) 正常 飛行 時 
前 へ た お す 
(< コブ 
本 へ た お す 右 へ た お す 


⑥-ー 一 | ぐ ⑤ | ⑨⑤ー- を - ーー-⑤ 




















手前 に 引く 
( 後 か ら 見 た 図 ) 
② 硝 面 飛行 時 
| 
Co) 
1 


ーーー| 《( ーー⑤ ae 


| 


( 後 か ら 見 た 図 ) 
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③ 左 90" 回 転 飛行 











(D) 


@-| @ ト ー@ @ 一 一 @ 











MM 
⑳ 
( 後 か ら 見 た 図 ) 
④⑭ 右 90" 回 転 飛行 
(の 
(で < ⑥ 
| 上 昇 


@ 一 | ⑲ トー@ @ 一 仁 一 @ 


上 
⑥ 中 
( 後 か ら 見 た 図 ) 








7.4 ジェ エッ ト 機 の 操縦 "75 
つぎ に この プロ グラ ム の 使い 方 を 示し て お ぉ こう. 
プロ グラ ム を 実行 する と , つぎ の よう な 画面 が 出 て くる . 


この まま で は 何 も 実 行 し な い . プロ グラ ム を スタ ー ト する に 
は , ジョ イス ティ ッ ク の 上 に ある 押し ボタ ン を 押す と ,。 ジェ ッ 
ト 機 は 飛行 運動 を 開始 する . 

ジョ イス ティ ッ ク の 上 の ボタ ン を 押す と , ジェ ッ ト は 90' ず っ 
左 に 回 転 し .。 ジョ イス ティ ッ ク の 下 に つい て いる も う 1 つの ボ 
タン を 押す と , 同じ く 90' ず つ 右 に 回 転 する の で , 姿勢 を 色々 と 
変え る こと に よっ て , 姿勢 に 応じ た 飛行 操縦 感覚 を 体験 する こ 
と が で きる . 
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10 " 
20 ! 
30 ! 
1000 
1010 
1020 
1030 


1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1 300 
1310 
1 320 
1330 
1340 
1 350 
1 360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 


P ィ 7.4 FRTIGHT SIMULATER 


SCREENQ 0 : COLHR 7?.1 : CLS 

DEFTNT ^-Z 

X=320:Y=100:FC=-1 :N=-1 

DIM JET1〈123) , JET2(115),JET3〈123), 
JET4〈115) 

! グー の ノ ヨミ コミ 

FOR エ T=0O TU 63 

READ JET1(T) 

NEXT エ 

FHR 1=0 TO 63 

READ JET2〈 エ 〉 

NEXT エ 

FUR 1T=0 TO 63 

READ JET3〈T) 

NEXT 

FUR T=0 TH 55 

READ JET4() 

NEXT エ 





PUTQACX,Y〉)-〈X+39,Y+ イ ) JET1 PSET 


! 。 フラ イト コント ロー ル 


ST1=STRTG(1):ST2=STRTG う 〉 
L 


TF ST1<>-1 THEN 1300 
TF N=4 THEN N=0 
N=N+ 1 飛行 次 勢 を 90' ずつ 


FC=N MOD 4 | 左 に 回 転 させ る 





DN FC+1 GUSUB 1430,1530,1630,1730 
LU 


TF ST2<>-1 THEN 1370 
TF N=0 THEN N=4 
N=N-1 
FC=N MOUD 4 


飛行 徐 勢 を 90' ず つ 
右 に 回 転 さ せる 














HN FC+1 GSUB 1430,1530,.1630.1730 


GHTO 1230 
U 


! 。 フラ イト コッ トロ ー ル サフ "ルー チ ソ 





! 2 イ N イ ヒ 上 コウ 
D=STICK て 1 ) 和 
LNEX。Y う =《+39 の .Y+14y PSET,1。BR 。 「 Wa 
TF D=1 THEN Y=Y+3 2 AT ae 
TF D=3 THEN X=X+9 0 


TF D=5 THEN Y=Y-3 IS 


1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1950 


2000 
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TF D=7 THEN X=X-9 
PUT(X,Y う -〈X+3 の 9」Y+ 了 ) JET1 ,PSET 
RETURN 

U 


!。 上 2 リ の 0 ト " カイ テン ヒコ ウ 
D=STICK〈 1 ) 
LINE(X,Y)-〈X+39、Y+14) ,PSET , 1 , BF 飛 
TF D=1 THEN X=X+ の 聞 
ITF D=3 THEN Y=Y-3 同上 置 
TF D=5 THEN X=X-9 制 
TF D=7 THEN Y=Y+3 御 
PUT9ACX,Y)-〈X+19.Y+14) , JET2,PSET 
RETURN 


! ルイ メン 上 コウ 
D=STICKK1) 
LTNE(X,Y う -(X+3 の 9 の,Y+14) 、PSET, 1 ,BF 

TF _D=1 THEN Y=Y- る 

TF _D=3 THEN X=X- の 

TF _D=5 THEN ヤ =Y+ る 

TF D=7 THEN X=X+ の 
PUTRCX,Y)-(〈X+ す 3 る の, Y+ イ 7) , JET3,PSET 
RETURN 


同上 


「) 。 ミキ" 20 ト " カイ テッ っ ヒコ ウ 
D=STICKC1) 
LTNE(X,Y う -(X+3 の 9,Y イ +14),.PSET, 1 .BF 

TF D=1 THEN X=X-9 

TF _D=3 THEN Y=Y+3 同上 








1TF D=5 THEN X=X+ の 9 

1TF D=7 THEN Y=Y-3 
PUT9ACX,Y)-〈X+19,Y+14) , JET4 ,PSET 
RETURN - 
! カリ メン ノ ヒョウ ジリ テ "ー タ 
! メイ ベイ ヒコ ウ ノ が メッ ノ ヒョウ ジ " テト ー ク 
DATA -1,-1,-1,-1,-1,-1,-1、-1 


DAT 1 ュー1。 1 ュー1 1 1,-1 .-1 

DRT 人 1,-1,-1,-1.0.6144.0.2047 

DATA -8192.0.6144.0,24.0,.0,15360 
DRTA 192.511,-32765,-ー1 1 , 64,126, う 
DATA 0.6144.0,2047,-8192.0,6144.0 
DATA 24.0.0,15360, 192.51 1 , -32765,-1 
DAT -1,-64,126,3,.0,0.0.0 


り 二 和 の OR ト Y カイ テウ メ が "ん の の の リー の 

DRT 有 1 ュー1 ュー1 ュ ー] ュー] ュー1.-1。ー1 

DAT 伯 ーー1 1 1」ー1 1 1 1 ,-1 

DaT 1,-1」-16,3,-4096,3072.192.12 

DATA 6144,-16000,15384,8191 ,-1 ,6175. 
ー3712,.15384 

DATA 192,12.0,-16384, 3072,1008,3,-4096 








49 六 


2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 


2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 


2200 
2210 
2220 








印 曰 表 示 の ハウ ・ ツ ー 




















DATA 3072,192,12.6144,-16000, 15384,191 ,-1 
DATA 6175,-3712,15384 , 192,12.0,-16384, 3072 
DATA 1008,0,0,0,0,0,0,.0 


! バイ メン ヒコ ウー ノ カリ メン ヒョウ シ " テリ ー タ 

DaT 代 ニー1。ー1 ュー1 1 。-1 1 。-1,ー1 

DRTR 1, 1 一 1, 一] 一 1 一 1 ,-1 ,-1 

DAT 人 A 1, 一 1 ,-1 1, 一 16384 , 32256, 1023,-1 

DRTA -1。-16383,-128,768,60.0,0,6144 

DaTA 0.24.0,7?,-32.0.24,0 

DRTA -16384,32256 , 1023, -1 ,-1 , -16383, 
-128,768 

DATA 60,.0,.0,6144.0,24,0.7 

DaTA -32.0.24.0.0,.0.0,0 


! ミキ" の 0 ト " カイ テン ノ カリ メラン ヒョウ シ " テー タク 

DAT 人 1 ,ー1。ー1 1 , 1 =] 。 =1 。-1 

DAT 人 1」ー1 ュー1 1 一 1 1 1 1 

DATA -1,-1,-16,-1024,768, 48,3,0 

DRTA 12288.-15424,3327,-32561 , -1 , -128, 
-15424,3120 

DaTR 195,0.12288,76.252.0,-1024.768 

DAT 4,3,0,12288,-15424 , 3327, -32561 , -1 

DATA -128,-15424,3120,195,.0,12288,768, 252 





に rue 
相 
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中 [. (1 


水平 接近 と 命中 





ゲー ム で は , 表示 し た パタ ー ン の 移動 と を の 衝突 に よる 命中 
表示 と いう 処理 が し ょ っ ちゅ う 出 て くる . 

基本 的 に は , 接近 する 双方 の 表示 位置 を 絶え を ず 比 べ て , 両者 
の 値 が 同じ に な っ た 時 点 で 命中 と 判定 し , 命中 の 意 示 を する と 
いう 方 法 を と る . 


まず , 簡単 な 例 で みて みよ ょ よう. つぎ の プロ グラ ム は , 人 人 間 に 
似せ た クロ ー バ の マー ク と , 投げ 矢 の よう な も の が 左右 か ら 接 
近 し , 当っ た と ころ で 命中 を 表示 する も の で ある . 


10 ! PB8.1 スイ ヘイ セッ キ フ ト メイ チュ ウ 

みり ." 

30 ! 

100 CULOR 7?,1:MTDTH 40,.25 

110 X1=0:X2=38:Y=12 

120 CULOR 7: LHCATE X1.Y:PRTNT "まけ: 
130 CHLOR 2: LUCRTE X2.Y:PRTNT"ー く リ : 
140 FUR T=1 TU 500:NEXT T 

150 IF X1=X2 THEN 200 

160 LUCATE X1.Y:PRINTU 

170 LUCATE X2.Y:PRTNT" の 

180 X1=X1+1 :X2=X2-1 

190 GOTH 120 

200 LUCATE 14.10 : CHLOR 6 

210 PRINT "メイ チュ ウ ! 。 ※※ り 


を 
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この プロ グラ ム で は , LOCATE 文 に より , 人 間 と 投げ 矢 の 表 
示す る 場所 を 指定 し , 行 180 で X 座標 を 変え 0 る こと に よっ て , 両 
者 の 接近 表示 も し て いる . 

行 150 で , 両者 の X 座 標 (X1 と X2) が 等 し いな っ た と ころ 
で , 命中 と 判定 し て いる . 


メイ チュ ウ ※ 
= 1 





62 





前 の 水平 接近 を , X 座標 を 固定 し て Y 座標 だ け を 動か す と , 
上 トド ( 悼 直 ) 移動 と な る . 


10 ! 
20 * 
30 『 
100 
110 
120 
1 30 
140 
150 
160 
170 
180 
190 
200 
210 
220 


例 で は , 


PB .2 スイ チョ ク セッ キ フ っ ト メイ チュ ウ 


CULUR 7,1:MTDTH 40,25 

X=1 了 :Y=0 

CULUR 7?7: LUCATE X+2.YEPRTNTUKT 
CULUR 2: LUCATE X,22:PRTINTT - ロ 7 
CHLHR 2: LHCATE X,23:PRTNTT く の > 
COLDR 2: LUCARTE X,24:PRINT リ で で 
FOR T=1 TH 500:NEXT T 


TIF Y=23 THEN 210 
LUCATE X+2.YE:PRTNTU リ : 
Y=Y+1 

GOTH 120 

LOCATE 13.10 : CHLOR 6 


PRTNT "メイ チュ ウ ! 


地上 の 戦車 に 上 空 か 6 爆弾 を 落と し , 爆撃 する プロ 


グラ ム を 示す . 
爆 紺 で ある "*" の パタ ー ン を 画面 の 上 か ら 下 へ 動か すこ と 


に よっ て , 


落下 シー ン を 表示 する こと が で きる . その た め に は , 


"※”。 パタ ー ン 表示 の 場所 を 指定 する LOCATE 文 の Y 座標 を 
0 から 増 加 さ せれ ば よい ( 行 190). 
この よう に し て , Y が 戦車 の ある 位置 (Y=23) の と ころ まで 





8.2 





直接 近 と 命中 83 





くれ ば 命中 と し て お け ば , 丁度 爆 半 が 戦車 の 中 に メリ 込ん だ と 
ころ で 命中 ほす る こと が で きる . 


ネ メイ チュ ウ ※ 
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[3 


水平 垂直 接近 と 近接 命中 





水平 接近 と 垂直 接近 を も いっしょ に 合せ て 表示 する 例 を 示 そ を う . 
- 空 を 水平 飛行 する 敵 


ここ で は , 地上 に ある ミサ イル 戦車 か ら 上 
偵察 機 を 撃隊 す る プロ グラ ム を 例示 し て みる . た だ し , ここ で 
ー 十 工夫 し て , 完全 に 命中 し な く て も , 近く を 通過 し た だ け で , 
命中 と な る よう に し て みた . 

この プロ グラ ム で の 朋 点 は , 行 180 一 190 の 部 分 で ある . この 
2 行 で , 近接 命中 の 判定 を し て いる の だ 」 























(X2, Y2) 








(1 Y1) 
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すなわち , ミサ イル と 債 察 機 の 離隔 距離 を 計算 し , その 絶対 
値 が , ある 一 定 の 値 以下 と な れ ば , を の 時 点 で 命中 と 判定 きせ 
て いる . 絶対 値 と し た の は , 通過 前 で あっ て も , 通過 後 で あっ 
て も, 命中 範囲 で あれ ば 命中 と する た めで ある . 


10 ' PB8.3 キ っ tb メサ ョ ウ 

20 ! 

30.* 

100 CHLHR ?,1:MTDTH 40.25 

110 X1=12:Y1=21 :X2=38 :Y2= ロ 

120 COLOR 2: LOCATE 10,.22:PRINT" - ロ 5 
130 CULUR 2: LUCATE 10,23:PRINTU く 20i 
140 CHLOR 2: LCATE 10,24:PRINT リ で の 
150 CULUR 7?: LHCATE X1.Y1:PRINT "る 
160 CHLHR 2: LHCRTE X2.Y2:PRINT リ ー+ リ 5: 
170 FUR T=1 TH SO00:NEXT T 

180 DX=ABS(X1-X2) :DY=BS(Y1-Y2) 

190 TF DX=<6 AND DY=<4 THEN 240 

200 LOCATE X1.Y1:PRTNTU の 

210 LUCATE X2.Y2EPRINTD 

220 X2=X2ー3:Y1=Y1-2 

230 GT 150 

240 LUCATE 14.10 : CHLUR 6 

250 PRTNT "メイ チュ ウ | 


この プロ グラ ム を 実行 する と, つぎ の よう に , 2 つの パタ ー 
ン が 重なる 前 に , 命中 表示 と な る こと が わか る . 


ー キ 












^ 
*※ メイ チュ ウ ! ※* 





=60 
に 科 矯 :。 








ヽ へ か ミ 
トー 









は じ め に , ご くく 簡単 な が ゲーム か ら 体験 し て みよ う . この ゲー 
ム ふ は , 線 を 引く LINE 文 を 主体 に , 進む 方 向 を 乱数 で 角度 を 決 
め , 三角 関数 で , 座標 位置 に 直す と いう 手法 を 用 いた も の で あ 
る . 外周 に 枠 を 設定 し , 欄 に 外れ る と ゲー ム ・ オ ー バ ー に する 


と いう ルー ル を つけ た . 

実行 後 ,、 ス ペー ス ・ キ ー を 押し て 方 向 を 変える が , どちら に 
進 W の か は 全く わか ら な い . 画面 の 右 上 に ポイ ント が 表示 され 
る が , この ポイ ント を で きる だ け 多 くし た 方 が 勝ち と いう わけ 
で ある . 

あたかも , 荒れ 馬 に ひき ずら 65 れ , どれ だ け 落 馬 し な いで 頑張 
っ て いら れる か の , あの ロデオ に ちな ん で , ロデオ ・ ゲ ー ム と 
各 づ け て あな だ 。 
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GAME OVER 
AGAIN? (Y,N) ? 





10 ! GM1 RHDEH 
20 ! 
30 
100 MTDTH 40 
105 LHCATE ?,12:PRTNT" く AS ー ス > キー ヲ オス メト, メート シマ スリ 
110 $=TNPUT$〈1 ) 
120 FUR T=1 TO 500:NEXT T:P=0 
130 LINE〈0,0)-(639 , 399) , PSET , 6,BF 
140 X=320 :Y=100 
150 TH=RND*6.28 
160 DX=10*CUS〈TH) :DY=15*STN〈TH) 
170 LTNE(X,Y)-CX+DX,Y+DY) , PSET , 2 
180 LUCATE 30.0:PRTNTUPHTNT : "iP: 
190 P=P+1 
200 FUR T=1 TU 50:NEXT T 
210 X=X+DX :Y=Y+DY 
240 TF X=>639 HR X<=0 THEN 280 
250 TF Y=>199 HR Y<=0 THEN 280 
260 K$=TNKEY$ 
270 TFK$= リ 0 ! THEN 150 ELSE 170 
280 LOUCATE 5,24:PRTNT" く ANS- メ > キー ーーーー> ーー リー 2 10: 
285 K$=TNPUT$〈1 ) 
290 CULUR 1,4:MTDTH 40 
300 LOCATE 10.10:PRINTUG AME ロ VUER' 
310 LUCATE 11,14:TNPUT "GRTN? 〈Y,N) "iR$ 
320 IF R$=VYU THEN 100 
330 TF R$=VNU THEN 340 
340 CHLUR ?,0:MTDTH 80 





@|[.]| 
空 中 戦 


まえ の ブログ ラム を ベー ス に , これ を 二 人 で で きる よう に す 
る と , 空中 戦 の が ゲー ム に な る . 

ジョ イス ティ ッ ク を 2 本 使い 。 どちら か が 逃げ それ を 他方 
が 追う と いう ゲー ム . で きる だ け 長 〈 く 逃げ回る こと が で きた 方 
が 勝ち . 攻 ・ 守 交代 し な が ら や っ て みる と , 結構 面白 く な る . 





510 


520 
530 
540 
5 
560 
570 
580 
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GM2 SPACE FIGHT 


MIDTH 40 

LHCATE 7,12 

PRTNT" く ANS - ス > キー ヲ オス ト ,」 メタ ー ト シマ スリ 5 

$=TNPUT$ て (1) 

FUR T=1 TH 500:NEXT T:P=0 

LINE(0.0)-〈639,399) ,PSET,6,BF 

Xa=200:Ya=100 : XB=400:YB=100 

DX1=21*CUS て 4 . イ 71) :DY1= ィ STN(4.71) 

DX2=21 CUS て (5 . 495) : DY2=7*STN(5 . 495) 

DX3=21*※CHS(O0) :DY3=7*SITN〈O) 

DX4=21*CUS(.785) :DY4=7STN( . 785 う 

DX5=21*CDS て 1 .5?7) :DY5=?7STNC1 .57 う 

DX6=21*CUS て 2 .355) : DY6=?7STN(2 .355) 

DX?=21wCDS(3.14) :DY イ =7*STN(3.14) 

DXB=21 CUS(3.925) : DYB=7STN(3.925) 

1 

LCATE 30.0:PRINTUPUINTE UEPi 

P=P+1 

Ka=STTCK(1):KB=STTCK(2 う 2 

ITF Ka=1 THEN DX=DX1:DYR=DY1 

TF KA=2 THEN DX=DX2:DYR=DY2 

TF KA=3 THEN DXR=DX3:DYA=DY3 

TIF KR=4 THEN DXaA=DX4:DYa=DY4 

TF Ka=5 THEN DXR=DX5:DYa=DY5 

TF Ka=6 THEN DXR=DX6:DYa=DY6 

TF KA=7 THEN DXA=DX7:DY=DY7 

TF KA=B THEN DXA=DX8:DYA=DY8 

TF KB=1 THEN DXB=DX1 :DYB=DY1 

TF KB=2 THEN DXB=DX2:DYB=DY2 

TF KB=3 THEN DXB=DX3:DYB=DY3 

TF KB=4 THEN DXB=DX4:DYB=DY4 

TF KB=5 THEN DXB=DX5:DYB=DY5 

TF KB=6 THEN DXB=DX6:DYB=DY6 

TF KB=?7 THEN DXB=DX7:DYB=DY7 

TF KB=B THEN DXB=DX8:DYB=DY8 

TF XR=>639 UR XR く <=0 THEN 540 

TF Ya=>199 HR YR<=O THEN 540 

TF XB=>639 UR XB<=0 THEN 540 

TF YB=>199 HR YB<=0 THEN 540 

LTNE(XA,Y)- て XRTDX」 YRTDY) ,PSET,2 

LTNE〈XB,YB)-〈XB+DXB,YB+DYB〉 , PSET, 1 

TF (〈XB-21) く =X 人 RND XaA<=〈XB+21)) aND 
(て YB-?) <=YA AND YA<=〈YB+7)) THEN 540 

Xa=XA+TDXR: YA=YR+DYR : XB=XB+DXB :YB=YB+DYB 

GOTH 170 

LUCRTE 5,24 

PRTNT く AA -ー ス > キー ーー ニー ニー> ーー ツネ キリ ニ スス 24 1 5 

K$=TNPUT$〈1 ) 

CULDR 1.4:MIDTH 40 

LUCATE 10.10:PRINTUG RME DUVER" 
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590 LHCATE 11.14:TNPUT "RGRTN? (て Y,N) UER$ 
600 IF _R$='"YU THEN 100 
610 TF R$=UN' THEN 620 
620 COLHR 7?,0:MIDTH 80 


ジョ イス ティ ッ ク の 方 向 と 対応 する 角度 は つぎ の よう な 関係 
に な っ て いる . 内 側 の 1 一 8 の 数 は , ジョ イス ティ ッ ク が を の 
方 向 に 傾い た と き に , STICK ( ) 関数 に 与 を られ る 数 で , 外 
形 の 小数 は , 角度 も ラジ アン で 表示 し た 値 で ある . 





4 
1.57(= 2 0 
5 
2.355 0.785 
和 アア 
3.14 7 0 3 0 
に の デ | 6.28(= 2 の) 
8 2 
3.925 5.495 





4.71(= す の 


以上 の ジョ イス ティ ッ ク の 位置 関係 か ら , 行 170 一 240 で , を 
れ ぞ れ の 方 向 に ど ジョイスティック が 倒 る れ た 場合 の 線 の 進み 幅 
(DX1>DX8, DY1-DY8) を 求め て いる . 

つい で , 行 290 一 440 に , ジョ イス ティ ッ ク の 倒 き れ た 方 向 に 
より , 上 で 求め た 各 方 向 に 応じ た 線 の 進み 幅 を 選択 する た め の 
IF 文 を 並べ て ある . 
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この よう に IF 文 を 並べ さる こと に よっ て , ジョ イス ティ ッ ク 
の 指示 に よっ て ,, 線 の 進む 方 向 を 8 方 向 の な か か ら , 自由 に 選 
ぶ こ と が で きる よう に する こと が 可能 と な る . 
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AA 回 NT テム 





最後 に 少し 長く な る が , スロ ッ ト ・ ゲ ー ム を ,。 きれ いな 絵 を 

楽し みな が ら 体験 し て みよ う 
に 掲載 し た 500 ス テッ プ 余 り の プロ グラ ム を 入力 する こ 

と か らら はじめる. 

実行 は 簡単 で , 画面 上 に 出 て くる 指示 通り 進め 、 あと は , ス 
ペー ス ・ キ ー を 押し て いく だ け で ある . 

この ブログ ラム を 実行 する と , まず , 大 量 の 絵 の デ ー タ を 配 
列 変数 に 読み 込む た め 。 や や 時 間 (7 一 8 秒 ) が か か る が , そ 
れ が 終る と. つぎ の よう な 美しい パタ ー ン 表示 に よる , ゲー ム 

配当 表 が 出 て くる . この 絵 の 並び 方 で 配当 が 変る の が , スロ 
ッ ト ・ ゲ ー ム で ある が , 一 , 二 枚 の 絵 の 組み 合せ の 場合 は , を 
れ が と の 位置 に 。 どう いう 順 座 で 並ん を で いて も よい こと に し て 
ある . また , 三 覆 組 み の 場 合 も , どう いう 順序 に 出 て き て も OK 
と し て いる . 
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By7-s ハイ トク ヒョウ 購 衣 
G 2 


6 2 6G 3 ハイ ト 9 6 1 6 3 2 イト ウ 


中 負 思 " 回 較 口 = 
鍵 録 品 * 回 息 口 * 








本 嗣 3 限 隊 軌 
4 還 四 0 人 
を 。 谷 | lm 6) 


ツ ギ ニス スム トキ リ (スペ ー ス 〉) キ ー ヲ オシ テク ダサ イ | 




















つぎ に , この ゲー ム を スタ ー ト する 前 に ラン ダム な 数 を 作る 
た め の 基 礎 の 数 を 指定 する こと に な っ て いる . この ステ ッ プ を 
設け る こと に よっ て , ラン ダム な 数 を 発生 きせ る ルー ル を 変え 
る こと が で きる の で , いつ で も 違っ た 絵 の 出 方 に する こと が で 
きる. 


きる て , いよ いよ ゲー ム 開 始 . つぎ の よう な スロ ッ ト ・ マ シー 
ン の 絵 が 出 て くる . 
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9. サン プル ゲー ム 


















































モウ イチ ド ヤリ マス カ ? ( Y ノ N) ? 里 


ルー ル は つぎ の よう に な っ て いる . 


持ち 点 1000 ボ ポイ ント 

ゲー ム 1 回 毎 に ゲー ム 代 を し て 。 200 / 引か れる 
破 産 0 ゥ 以下 

冨 杜 2000 ヵ み 以上 


① ス ペー ス ・ キ ー を 押す と 絵 が 回 転 を 始め る . 

② も う 一 度 ス ペー ス ・ キ ー を 押す と , 窓 毎 に 、 絵 が 止ま 
り 始め る . 完全 に 止 っ た と ころ で 配当 が 決ま る . 

つぎ に スペ ー ス ・ キ ー を 押す と , 配当 は 0 に も どり , 
持 点 を 計算 表示 する . 

持 点 三 持 点 十 配 当 一 200 


以上 を くり 返す . 





スペ ー ス キー 
が 押さ れる ま 
て 回 転 を くり 
把 す 








スロ ッ ト ゲ ー ム の フロ ー 





時 スト ッ プ ) 















各 室 の 絵 表 示 N1, N2, N3 


絵 の 回 転 表示 




















スロ ッ ト マ シー ン の 
本 転 ス トッ プ 





983 スロ ツ M ド ・ ゲ ザー ム 














絵 の 回 








配当 の 表示 





NO 


GAME OVER 





10 ! 
20 ! 
30 ! 
1000 . 
1010 


1020 
1030 
1040 
1050 
1060 
1070 
1080 
1020 











1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
310 
1320 
1330 
1340 
1 350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
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GM3 ロット ・ う リー ん 


SCREEN 0:CODLOR 6,1:DEFTNT A-Z:MTDTH 40,25 
DIM PAT1(543) ,PAT2 て 543) ,PAT3 く 543) 
PAT4543) 、PAT5(543) 、PAT6〈543〉 

P1=1:P2=2:P3= う :P4=4 :P5=5 :P6=6 
THAIT0!=2000! 
U 
"2 イト FM が メッ フ Ea ョ ウジ" 
LOCATE 6.8:PRINT'<< く < SLOUT 
LDCATE 9,14:PRTNT リ イマ, テ "ー ク う ヨ 
「 9 ター ッ ・ チ リー クノ ヨミ コミ 
! モ グラ 
FR 1=0 TO 271 

READ PAT1<T):NEXT エ 
' CAR 
FR 1=0 TO 271 
READ PAT2T〉:NEXT エ 
「 GaL 


BAME >>>" 
ミコ ッ テ " イマ ス o" 


FHR T=0 TH 263 
READ PAT3〈T):NEXT エ 
* ME。 FUJT 
FUR 1=0 TH 271 

READ PAT4(T) :NEXT T 
リー ラウ キー もう 
FUR T=0 TO 271 

READ PAT5(T):NEXT エ 
グラ 99 
FUHR 1=O TH 271 

READ PAT6〈T):NEXT エ [ 
) ルイ トウ ヒョウ ー ノ 上 ョ ウジ" 
WIDTH 80:LUCATE 11.0:CULDR 6 


PRTNTUK ※ ポポ ん ロ 選 ドル みか" ら と な NT 上 ト ゆ 明 ダ 


LUCRTE 2.2:CULHR 5 


PRINT'G 1 人 G る ルイ トウ リロ ELHCRTE 46,2 
G 


PRTNTVG 1 G 3 バイ トド ウリ "5CHLHR 7 
LU 

UT9R(0,32)-(0+59, 32+23) , PAT1 ,PSET 
UTCB0,32)-(B0+59, 32+23) , PAT1 , PSET 
UTA て 160,32)-(160+59,32+23) ,PAT1 ,PSET 
UTC352,32)-(352+59, 32+23) , PAT2,PSET 
UTAC432、32)-(432+59, 32+23) , PaT3、PSET 
TS9R て 0.64)-(0+59. 64+23) , PAT1 , PSET 
TAC80.64)-(B0+59.64+23) ,PAT1 ,PSET 

「R て 352.64 う (352+59, 64+23) , PAT3,PSET 
TaRC432.64)- て 432+59 , 64+23) , PAT6,PSET 
T9R て 0,96)-(0+59, 9 の 6+23) , PAT5,PSET 
TA(352,96)-(352+59 , 96+23) , PAT5,PSET 
TA て 432, の 6)-(432+59,96+23) , PAT5,PSET 
TaC512,96)- て 512+59, の 6+23) , PAT5,PSET 
TA(0,128)-(0+59,128+23) ,PAT5,PSET 

Ta て 352, 128)- て 352+59, 1 28+23) , PAT2,.PSET 
TQC432,128)-(432+59 , 1 28+23) 、PAT3,PSET 
Ta(512,128)-〈512+59, 1 28+23) ,PAT4,PSET 
TA〈0,160)-〈0+59, 160+23) , PAT2,PSET 
「RC80,160)-(B0+59, 160+23) , PAT4,PSET 
T9 人 (352,160)-( て 352+59 , 1 60+23) ,、 PT6,PSET 
UTC432,160)-( て 432+59, 160+23) , PAT6, PSET 
UTRC512.160)-〈512+59, 160+23) , PT6,PSET 
R エ =1 TH 8 
RERD_X,Y:LTNECX,Y)-CX+59,Y+23) ,PSET ,?.B 


むせ で で で りり で で や 1 むせ 
己 刀 で 


(CE 5 (2 4 
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F 


米 氷水 


氷上 


93 スロ ッ ト ・ ゲ ザ ゲーム 9⑳ 


1600 NEXT 

1610 " 

1620 FHR エ =1 TO 5 

1630 READ Y,R1,R2 

1640 LHCATE 30.Y:PRINT USING"+ 杜 。 村 寺 肝 り 5R1 

1650 LHCRTE 7?74.Y:PRINT USTNG"+ 提 。 村 提 桂 5R2 

1660 NEXT 

4670 * 

1680 LHCRTE 15,24:CHLUR 4 

690 PRTNT "ツキ" ニ メス 4 トキ バ 。 く ANP ニース > キー ラ オシ テ クタ サイ 005 ECDLDR 7 
1700 NXT$=INPUT$〈1 ) 

40 " 

1720 CHLUR 7?,1 : MIDTH 40 

17?730 CHLUR 6:LUCATE 10,.3:PRINT リ レッ リサ メス ター ト ILUECDLOR 7 
1740 LUCATE 2.7:PRINT" ジ ターフ メス ウジ ウツ リハ 7 リー ム ノウ ラッ ラキ メル カス "テテ" スリ 
1750 COLOR 6 

1760 LUCATE 9.10:PRTNT" ス キナ カス " ヲ ニュ ウリ ョ ク シテ 2 ク 2" サイ リ 
770 LOCaTE 0,16 

1780 RANDUMIZE 

1790 『 

1800 ! スロ ッ ト ・ ケ 『ー ム が メン ー ノ ヒョウ ウジ" 

1810 CLS 

1820 LINE〈160.16)-(480,112),PSET,3,BF 

1830 LINE(192.28)-(448,44).PSET,6,BF 

1840 CULHR 7?,6 

1850 LUCATE 13.4:PRINTU ス ロッ ト 7 リー ムリ" 

1860 LINE(211 .63)-(272.88),PSET,?,B 

1870 LTNE(295,63)-(356,.88),PSET, 7.B 

1880 LINE(371,63)-(432.88)、PSET, 7,B 

1890 LINE〈160,113〉-(480,184),PSET,7,BF 

1900 CHOLUR 0,1 

1910 PRTNTQ(200,124) .&H475B,&H3020,&H3020.&H4576 
92O CEHLOR 逐 

1930 PRINT9(200,148),&H3B7D,gH3020,&H3020,&H4540 
1940 LTNE(304,.124)-(432,140).PSET, 1,BF 

1950 LTNE(288,148)-(448.164).PSET,1、BF 

1960 LINE〈480,127)-(552, 1 36) , PSET, 7,BF 

1970 LINE(528,.88)-(552,136),PSET,?,BF 

1980 CTRCLE(541.82).20.2.. FPSET 

1990 COLUR 7 

2000 X=212:Y=64:GUSUB 2810 

2010 X=296:Y=64 :GUSUB 2810 

2020 X=372:Y=64 :GHSUB 2810 

2030 " 

2040 LUCRTE 0,.23:CULOR 6 

2050 LUCATE 20.16:PRINT _ USING 寺村 旧 肝 5HaTTDU・ 
2060 LUCATE 19,19:PRTINT USTNG"+ 寺 提 持 , 昌 旧 桂 り :THATTHI: 
2070 LUCATE 0,24 

2080 PRINT" く ANS - ス > キー テ " スタ ー ト / ス トッ フ 25 EECULDR 7 
2090 NXT$=TNPUT$〈1 ) 

2100 ! 2 ロッ ト ・ マ シーフ スタ ー ト 

2110 MK1$=" リ 

2120 N1=INT(20*RND)+1 :N2=TNT(20wRND)+1:N3=TNT(20*RND) う +1 
2130 GOSUB 2700 

2140  WK1$=INKEY$ 

2150 IF MK1$=" "THEN 2180 ELSE 2110 

2160 " 

2170 ? メト ッ フ 7 ルー チッ 

2180 L1=0:L2=0:L3=0O 

2190 IF L1=N1 THEN 2250 

2200 X=212:Y=64 

2210 G1=〈(L1 MOD 6)+1 

2220 DN G1 GOSUB 2810,.2840,2870,2900.2930,2960 
2230 L1=L1+1 
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2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 


2430 
2440 
2450 
2460 


2470 
2480 
2490 
2500 
2510 
2520 


2530 


2540 
2g50 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 


2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 


9 サッ ブル ダー ム 


TF _L2=N2 THEN 2310 
X=296:Y=64 
G2=(L2 MOD 6)+1 
DN G2 GOSUB 2810,.2840.2870.2900,2930,2960 
L2=L2+1 
TF L3=N3 THEN 2370 
X=372:Y=64 
G3=(L3 MDD 6)+1 
HG3 GOSUB 2810,2840,2870,2900.,2930,2960 
し 3= し 3+1 
GUTH 2190 


LUT=100*G1+10*G2+G る 

TF LUT=111 THEN HATTD=-2000 :GHTD 2490 

IF LUT=555 THEN HAITD=?700:GOTO 2490 

TF LUT=666 THEN HATTH=2000 : GTD 2490 
TF_LHT=234 HR _LHT=243 UR LUT=324 DR LUT=342 DR 
LUT=423 DR LUT=432 THEN HAITH=1000:GHTD 2490 








TF _(G1=] AND G2=1) OUR (G2=1 ND G3=1) OUR 
(1=1 人 AND G3=1) THEN HATITD=-1000 :GBOTU 2490 
ITF (G1=2 RND (G2=4 HR G3=4)) HR (G1=4 AND 〈G2=2 DR G3=2) ) 
UR (G2=2 AND G3=4) HR 〈G2=4 AND G3=2) THEN HATTU=500:GUTH 2490 
ITF (61=2 AND (G2=3 DR G3=3)) DR 〈G1=3 ND 〈G2=2 DR G3=2) ) 
DR (G2=2 AND _G3= う 3) OUR (て G2=3 AND G3=2) THEN HATITU=500:GUTU 2490 


ITF (G1=3 AND 〈G2=6 HR G3=6)〉) UR 〈G1=6 ND (G2=3 HR G3= る ) 〉 

DR (G2=3 AND _G3=6) DR 〈G2=6 AND G3=3) THEN HATTH=500:GUTD 2490 
TF _G1=5 DR G2=5 OR G3=5 THEN HAITU=200 :GOTU 24920 

TF_G1=] HR G2=1 DR G3=1 THEN HATITU=-500:GHTU 2490 





THATTH!=THATTO !+HaTTO 

THAITU!=THAITO!-200 

IF _THRTTD! く <-1000 THEN CHLUR 2:PRINTQ(312.,148),&H3020. 
&gH474B,&H3020,&H3020,gH3020,.&H3B3Q:GOTD 2610 

TF THaTTOI>5000 THEN CULDR 6:PRTNTQ(312, 148) ,&H3020. 
&H4959、&H3020,&H3020,&H3020,.&H396B :GDTH 2610 

CODLOR 2 

LUCATE 20,16:PRTINT USTNG"+ 時 時 時 肝 HATTDi :HATTD=0 
LOCATE 1 の 9,.19:PRTNT USTNG"+ 昌 朋 昌 , 提 填 晶 り :THRTTD!: 

U 


NXT$=INPUT$〈1 ) 
GOTH 1990 
LU 


CULOR 6:LDCATE 0.24 

TNPUT リモ ウイ チト "ヤリ マス カ ? て Y / N うり":K$ 

TF_K$=VYU HUR _K$="y" THEN MTDTH 80:RESTURE 5120: 
HATTU=0:THaAITH!=2000:GODTO 1290 

ITF _K$=VNU_UR K$="n' THEN CLS ELSE 2610 

LUCRTE 4.12:PRINTUK w * GaAME DU VER ※ ※※ ※ 
LU 


END 
W 


! 7 ター ソン カイ テン ノ サフ \ ル ー チ っ 
FUR_N=1 TH 6 
X=212:Y=64 
UN N GUSUB 2810.2840,2870,2900,2930,2960 
X=296:Y=64 
UN N GHSUB 2810,2840,2870,.2900.2930.2960 
X=372:Y=64 
UN N GSUB 2810.2840,2870,2900,2930,2960 
NEXT_N 
RETURN 








2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3290 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3370 
3380 
3390 
3400 
3410 
3420 
3430 


1S 以 ー 
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っ 上 ヒョウ シノ サフ "ルー チ フ っ 


PUT89A(X,Y)-(X+59,Y+23) ,PaT1.PSET 
RETURN 
LU 


PUT9ACX,Y)-〈X+59,Y+23) ,PAT2,PSET 
RETURN 
U 


PUTQACX,Y)-〈X+59,Y+23) ,PAT3,PSET 
RETURN 
r 


PUTQACX,Y)-〈X+59,Y+23),PAT4.PSET 
RETURN 
U 


PUTQACX.Y)-(X+59,Y+23) ,PAT5,PSET 
RETURN 
1 


PUTQaCX.Y)-〈X+59.Y+23), PRT6,PSET 
RETURN 


* eg プ アー 


! キク 2\ ラ 


DATA 
DATA 
DATA 
DRTR 
DATA 
DRTR 
DATA 
DATA 
DATA 
DaTa 
DATa 
DATA 
DATA 
DATA 
DATa 
DATa 
DATA 
DaTR 
DATA 
DATA 
DATA 
DaTA 
DATRA 
DRTA 
DRTA 
DATA 
DRTA 
DaT^a 
DaTA 
DRTR 
DATA 





ー1 1,-1,-1,-1.0.4095,ー1 
-1024.0,1023,-2.0.0,2047,-128 
0,0.8191,-4096.0,0,-4.0 

0,3,-128,0.0.31 ,-4096.0 
0,254,0,3591,.0,2016, う ,-3844 

0.32256, 127, 4064, イ ,-B192,992,31744 
112.0,3075,0.224.0.0,0 
32512.0.0.15,-4096,0,0,255 
-32768.0,0,7936,.0,0,0.4064 
0,.0.127,-256,.0.0.4095,-2048 
0,1,-256,0,0,0,0.0 

0.0.0,0,0,0,0.0 

0.0,.15,-1,0.0,.8191,-1 

-32768, 15,-1,-1.0,1023,-1,-4 
0.-128,-16,B176,31 ,-16389,-513, -8320 
1015,-33,-16385,31744 32639, -3592 , -9,-8185 
-2052, 3843,-130, 127,32640,-4065,-2080,2044 
ー の 93, - う 1751 , -512,32764,1020,1023,-8192,32767 
-1,-64.56,16383,-1 ,960,1020.4095 
ー497、-1024,B191 , 1, 一 1 32768,7,ー ク 
0,7,-1,-1,-512.60,2047,-497 

-16384,31 ,-1,-512.0,0.0.0 

0,.0,0.0,0.0,0,0 

0.0,0.0.15,-1.0.0 

B191 ,-1,-32768,15,-1,。-1.0.1023 
ー1.-4.0,-128,-16,8176, う 1 一 16389 
-513,-8320.1015,-33,-16385, う 1744,32639 3592 
-9,-8185,-2052,3843,-130,.127,32640,-4065 
-2080,2044.- の 93,- う 1751 , 512.32764,1020,1023 
-B192.32767,ー1,-64.56, 1633,-1, の 60 
1020,.4064,322?1 ,-1024,B191,-1021,-1,-32768 


DATA ?,-16322.0,7,-2.2047,-512.60 

DATA 2047,-49?,-16384,31,-1,-512.248,8191 
DAT -1,-64,-3969、-1,-1,-16,.0.0 

) CaR 

DATa 0.0,0,0.0,0.0.0 

DaATA 3072,0,0.0.0,0,0.0 

DaTA 0.0,0.0,0.0.0,30720 

DATA 0.0.0.0,0.0.0,30720 

DaTA 0,0,0,0.0,0.0,0 

DATA 0,0.0,0,0,.0,0,32256 
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3440 
3450 
3460 
3470 
3480 
3490 
3500 
3510 
に に ア J| 
3530 
3540 
3550 
3560 
3570 
3580 
3590 
3600 
3610 
3620 
3630 
3640 
3650 
3660 
3670 
3680 
3690 
3700 
3710 
3720 
3730 
3740 
3750 
3760 
3770 
3780 
3790 
3800 
3810 
3820 
3830 
3840 
3850 
3860 
3870 
3880 
389?0 
3900 
3 うぅ 910 
3920 
3930 
3940 
3950 
3960 
3970 
3980 
3 る 990 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 


9. サラ プル ゲー ム 


DRT 0,.0,63,-2688,0,0,16323,-64 
DATA 0,15,-3841 ,-256,0,0,0.0 
DaTA 0.0,0.0.0,0,.0,0 

DaTA 0.0,0,7?,-32768, 1 , -192,0 
DaTA 0.0.0,0.0,0,0.0 

DAT 0.0,-1,-1」-1,-1 。-127,-1 
DRTA -1,-1,-81 イ ?。ー1 ,-1,- 日 ,15,-1 


DAT 人 -1,-4,1023,-1 ,-1 , 256, う 2767,ー1 
DRTA -1,-32768,-1 ,-1 、-4, う ,ー1 ,-1 

DATR -512.127,-1,-1 、-32768,1023,-1 ,-1 
DATR 0,.4095,ー1 ,-1 ,-1 」-1 ,-1,-1 

DRT -1,-32257,ー1 ,-1 , 64,28687,ー1 ,-1 
DRTR -16324,63,-1 ,-16,3840,255, -1 ,-1 
DRT 人 1,-1 ,-1 一 1 。-1 一 1 ,-1 ,-1 

DRT 信 1,-1 ,-1 ,-1 ,-1 , 57,-286 イ 3, る 1 
DRTRA -?681 ,-253,-1 ,-128,32767,ー1 ,-1 ,-1 
DRTR =1。-1。 こ 1 ュー リッ ーッ ー ユ デ ] ,-1 

DRTR 1 1 ,-1 ,-1 ,-3073,-1, 1 ,-1 

DAT 人 1,-1 、-1 一 1 ,-1 , 一] 、-1 ,-1 

DaTR 一 1 ,-1 ,-1 ,-30721 , 1 ,-1 , 一 1 ,-1 

DAT -1,-1,-1 ,-30721 、 一 1 ,-1.-1,-1 

DATR 1,-1,-1 」-1 、-1 , 一 1 ,-15873,-1 

DRTR -1,-4,8191 ,-32768,191 ,-125,-64,0 
DaTA -1,-8065,-16384 ,3,-1 、-16,0, イ 
DATA -256,.0.0,.62.0,0,0,384 

DRTA_ 0.0,0,15360,0.0.7?、-5 ァ 

DaTR -2867?3,- う 1 ,-?7681 ,-253, -1 ,-128,32767,ー1 
DAT 1,-1,ー1,-1。-1,-1.0.0 

し GRL 

DRTR 1,-1,-1 ,-1 ,-1 ,-16383,-1.191 
DRT 人 AN -32,7,-1017,-1.-4096,14 511 ,-4 
DAT 0.0,-1,-128,.0,511,-1,-2048 

DRTR 0,.8191,-1024, 16383,-499,-1,0.8191 
DRTR -361?,-4.0,15,-1,-16,.0,0 

DRTA 4095,-1 、-16384.0,32767,-4,0,7 
DRTR -1,-64.0,127,-1,-1024.0,1023 
DATR -1,-16384,.0,8191 ,-2,.0,.0,-1 

DRTR -16.0,3,.-6145,-128,.0.0,16383 
DaTRA -256, の 6, イ ,ー1 ,-512,15B72.511 ,-1 
DATR -1,-4096,ー1 1 ,-1 1 。-1 ,-1 

DAT -1,-1 ,-1 一 1 ,-1 ,-1 ,-1 ,-163 昌 3 

DRTR -8,8191 ,-32,7,-1017,-1 ,-4096.14 
DRTRA 511,-4.0.0,-1,-128.0.511 

DRTR -1,-2048.14.8191 ,-1024 、16383,-3,-1 
DRTR 0,.8191,-33,-4、0,15,-1,-16 

DATA 0.511,-4097,-1 ,-1 、-2.32767,-1 
DRTR -16369,-25, 一 1 ,-1 ,-257,-385 ,-1 ,-1 
DRTR -4097?,-7169,-1 .-2,-2.8191 , 1 ,-1 イ 
DRTR 64」-1,-1,-1 ,-2045,-6145,ー1 ,-1 
DATR 0,16383,-1 ,-32,?,ー1 ,-1 ,-512 

DRTRR 511,-1,-1,-4096,-1 ,-1 , 一 1 ,-1 

DRTA =1 ッ =ー1 ュー リュ ー1.0.0.0,0 

DaTA 0,0,?,-192.0,0,1016,0 

DRTR 0,1,-512.0.0,127,.0,.0 

DRTA 0,3584,0,0, 1 、-32768,0.0 

DATR 0,16368,.0.0,15,-64,.0,15 

DRTR -1,-4096.0,511,-8192.0,16383,-2 
DRTR 0,3,-16369,-32, 0 、63, -257, -12 
DRTA 0,1023,-409?,-192.0,1632,-2,0 
DRTR 1,-17,-64,0,15,-1 , -2048,0 

DaTA 12?,127,.0.0,254,16256,0.0 

DRTR 511,-16384,0.0,0、0,0,0 

* ME。 眉 UIOE 

DRTR 1,-1,-1 ,-1 一 1 ,-1 1 ,-1 














4080 
4090 
4100 
4110 
4120 
4130 
4140 
4150 
4160 
4170 
4180 
4190 
4200 
4210 
4220 
4230 
4240 
4250 
4260 
4270 
4280 
4290 
4300 
4310 
4320 
4330 
4340 
4350 
4360 
4370 
4380 
4390 
4400 
4410 
4420 
4430 
4440 
4450 
4460 
4470 
4480 
4490 
4500 
4510 
4520 
4530 
4540 
4550 
4560 
4570 
4580 
4590 
4600 
4610 
4620 
4630 
4640 
4650 
4660 
4670 
4680 
4690 
4700 
4710 


DARTA 
DaTa 
DaTR 
DATA 
DARTA 
DRTA 
DaTA 
DaTA 
DATA 
DaTA 
DATA 
DATA 
DATA 
DaTA 
DaTA 
DATA 
DaTA 
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ご 1 ェ ー1 ュー1 ュー1 。 1 ュー] 。 1 

ーー ド pe ュー1 1。 =1 ) デ 1 。 そ 1 

ーー ュー ド ャ ーッ ャ ー1 ・ー1 =1 = ニ 1 1 

ーー 條 ャ っ ルー で) 13 る] 1 

ー1 ュー1 ュー1 1 ュー]1 1 ,ー1 。ー1 

ュー ニャ ー ト こま ルリ デュ リト 
ー-1,-4096.0,-1,-16,4095,-4096,16383 
-2048,2047,-1024.32764,0.0.0,-512 
0,0,0,0.0.0.0.0 
0,0,3,-1 ,-1,-1 .-B192,-1 
-1,-1.0,0.0,0,0.0 
1023,-32768,0.0.1023.0.0.0 
0,0,.0.0.0,0.0.0 

0.0,0.0.0.0.0.0 

0,51 , 12288.0,0,4095,-16384,0 
3,-1.0.0,248,-13188.0.0 
15360,240,.0,14,0.448.0,768 





DATA 0.768,0.-16384.0,3072.112.0 

DaATA 0.14336, 14336,0.0.28700,0,0 

DATaA 0,-4608.0,0.0.0,0,0 

DATA 0.15,-1,-1,-256,0.0,0 

DATR 0.0.0.0,-1,-1,-1,-1 

DATR -1,-1、-1」-1,-1、-1,-3073, 32767 
DATA -1,-1,-51 1 ,-1 1,-1,-1,ー1 

DATR 1 1,-1,-1,-1,-1,-1,-1 

DRTR 1,-1, 一 1,-1,-1 1,-1,-1 

DAT -1,-1,-1,-1,-ー1,-1,-8,-13185 

DAT -1,-1,-1024,255,-1,-2.0.511 

DATA -1,-256,-2,1023,-1,-12289,-1 ,4095 
DAT -1,-4096.4095,-1,-1,-2048,1023,-1 
DAT 1,-1,ー1,-1,-ー1,ー1 ,-1,ー1 

DATA -1,-1,-1,-1,-7169,-16369,-4、0 

DaTa 0,0.8191,0.0,0.0.0 

「 の まこ ー も の" ら 

DAT 1 1」-1,ー1,-1 一 1 1」ー ク 

DATA 1023、-1,-2017,-32.0.0,.511,-512 
DaTA 0.0.8191 ,-8192.0,1,-2,0 

DaTQ 0,31,-32.16383,-4,511 ,-509,-1 

DAT -64.8B191 ,-129,-1 ,-4093,-2,1023,-4 
DATA 255,-1,-1 ,-256, 16383, 一 1 1 32753 
DATA -1.-1,-64,1023,-1,-1,-B192。-1 

DATR -1,-16,63,-1 ,-1 ,-1024,4095,-1 

DATR 1,1,-1 1 ,-64,63,-1,ー1 

DATA -1024,204 了 ,-1,-1,-B192,16383,-1,-1 
DATR 1,-1,-1,-B,15,-1,-1,-1 

DRTR =1。 ニ 1。ー1 デュ ュー1 ーッ ー1 、ー1 

DAT -1,-1,-897,ー1 ,-29,ー1, 1 ,-1 

DATR -449」-1,-1 」ー1 7169。ー1 1 ー2 

DATA 16383,-1,-1 29,-1,-16384, う ,-449 
DATR -4,32767,ー1,-7169,ー ロ 7 ュー1 4, う 2767 
DAT -897,-1,-225,-ー32,2047,ー1 一 14337,ー1 
DATR -1,-15,-1,-1,-1 ,-897,-1,-1 

DAT -1.8191 ,-1 , 一 1 ,-5 了 7,ー1 ,-1 ,-1 

DATR -3585,-1 ,-1,-2.16383,-1 ,-1,- ロ 7 
DATA -1,-1,-1 1? の る,ー1 一 1,-1 14337 
DATR -1,-1,-2,16383, 一 1 1 ,-15,ー1 

DAT -1,-64.15。ー1,ー1 , 一 1 」ー1 1 

DATA -1,-1,-1」-2,127,-1,-2045, -25 

DATA 0.0.63,-385,-1 ,-1,-3174 ロ ,-6145 
DATA -1,-8,16382.28672.0,1923,-25,0 
DAT 0.30783.-400,32767,-5 イ ュー うろ 1745、ー6393, 1 
DATA -3616,32766, 127,-4,.30751,-32,2047,ー226 
DATA 2047,-1 ,-1,-28799,-1 ,-1 ,-57,-8065 


DaT^a 


ー1 。 1 , - イ 176。 191 , 1 ,-15, 505 一 1 





4720 
4730 
4740 
4750 
4760 
4770 
4780 
4790 
4800 
4810 
4820 
4830 
4840 
4850 
4860 
4870 
4880 
4890 
4900 
4910 
4920 
4930 
4940 
4950 
4960 
4970 
4980 
4990 
5000 
5010 
5020 
5030 
5040 
5050 
5060 
5070 
5080 
5090 
5100 
5110 
5120 
5130 
5140 
5.150 
5160 


9. サッ プル ゲー ム 


DaTA ー1,-B97,-ー3225?,-1 、-1 , 176, 16383,-1 

DRTR -57,-505,-1 、-1 , 897,-16129, 1 ,-1 

DRTR -7?170,204?,-1,-1.0,16383,-1 ,-8 

DATA 1,-1,-1,-64.15,-1,.0.0 

ウラ 3 

DAT 人 1,-13。-1」-1 ,-1 1 ,-1 ,-1 

DATR 1,-1 ,-1 ,-1。-1 ,163 コ 3,-1 ,-1 

DRTR 13,-1 、-1 ,-1 、-1 ,-1 ,-1 ,-1 

DARTR -3073,-1 ,-1 、-1 , 163 ヨ 3,-1 、-] 1 る 

DRTR 1,-1,-101?,-193,-2033、-2.3、-16 

DaTA 31,-128,63, 16128, 127,-4096, 4083,-1024 
DATA 1023, る ,-1 ,-4096, 16368, 127,-1 32765 

DaT 谷 ー256,4095,-4 63,-4096 , 3585 , 7232, 1 023 
DATA ー32753、ー1 , 1024 , 32760, 255,ー1 , 1637 イ ,ー64 
DaTA 2047,-8,255 , -512.,323?1 , 24704,8191 , -409 る 
DRTR -1,-4093,-1 る 、-50, 29596 , - 了 ,- 193 ,- イ 93 

DRTA 14799,-9?.0,.12.0.0,0.480 

DaTA 0.0,0,.3072.0.0,7,-204 

DaTA 0,0,127?,-32768,.0,.0.480.0 

DRTR 0,0.7680.0,0,1.8192.0 

DRTR 63,-32750, 127,0,8191 ,-153 イ 76, -2, 15 

DaTR ー1,-16129,-4,51 1 ,-16, 1023,-32, 16383 

DATR -1024,4095,-253、-1 .0, 16383,-403 う ,-23 
DATA 3073,-1,1023,-1023,-8177,-16, 16383,-126 イ 3 
DATR -25345,-255,-4 ,480,4095,-161 , -64,3072 
DRT -2.255,-512,31 ,-64 ,2047,- ィ 796, 25087 

DATA -2048,1633,0, 163B3,63,-1538, 32671 , -6145 
DATR -31745,-24601 ,-1538,32760,.0.0,0.0 

DRTA 0.480.0.0.0,3072.0.0 

DAT 7,-2048.0,0,127,-3276,0.0 

DaTa 480,0.0,0,4608,0.0. 1 

DRT -B192.0,.63,-32738, 127,0.7175,-15568 

DRTR -2034,14,3,-16144.28,384,48,-15616 

DRTR 96,12288,3084,3072,? イ 1 , 3,0, 12288 

DATA 12336, の 6,3073,-32765, イ 768, 3073,-8180,48 
DaTA 1228,-12673, -25408,?69,-32756, 480. 3072,24600 
DATA 192,3072,-1637, 192, 1536, 24 ,192, 1536 
DATA 24588,384,.6144, 12291 , 0, 12291 , 51 , 1638 る 
DAT -3073,-199,- う 1949,-1 , 16383,-3176,0,0 

きま 





DATA 512.32.160,.64.512.64.80,96 

DATA 160,96,.80,128,160,.128,160.160 

「 ルイ トウ ヒョウ ヒョウ ジノ テー タ 

DaTA 5,-2000,500,9,-1000.500.13,-500.700 
DATA 1?,200,1000,21,500,2000 








さく いん 



































[ 和 
[ カ 行 ] 
キャ ラク ダー・ パ ター ジーー 0 
退 杜 仙 中 ーーーーーーーー 映 
ダラ テラ フィック ァ バ ター マーー 43 
グラ フィ ッ ク タク 機能 --ーーー 2 
紅 度 法 (ラジ アン ) 14 
E 和 大] 
記 着 お タグ ーーーーー の 
スー パー イン ポー ズ 機 能 2 
英 
し 導 』 
AUDIO# VISUAL 
AV 2 
[ C ] 
NL 丈 ーーーー ーー デー 病 
[ D ] 
PA 其 ニーーーーーー 問 
MM 炎 ーーーーー デ ーー 
ト 村 - 紀 
RGOR…NBXF ーーーーー 8 
M 修 』 
GET 43 
【  』 


INPUT$ 文 


105 


文 





























[ ハ 行 ] 

ター ン ・* ジェ ネ レ ー タ ーー 48 
[ マ 行 ] 

ミュ ー ジ ッ ク 機 能 2 

命中 表示 一 一 ーーーーーー 80 
[ ラ 行 ] 

ラン ダム 18 

ラン ダム 関数 (RND) 一 24 

ルー プ 文 ーーーーーーーーーーー 23 

文 」 
5 加 。 紅 

INE 文 30,88 

LOCATE 文 10,64 
[ P ] 

PAINT 文 ーーーーーーーーー 32 

PSETT 文 -- 一 ーーーーーー 14 

PUT 43 
[ R ] 

RND 18 
RND 関数 7 
[ 5S. 制 
STICK 関数 リ | 

SYMBOL 文 











上 目 目 Evo 征 目 | 
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FM77 AV・Le・L4 
F-BASIC の 手引 
富士 通 編 


7 一 か ルコ ロジ ビュー ERM77 (エン * ゃ あみ ・ も ブン も セブ マリ )。 
FM-NEW 7 (エフ ・ エ ム ・ ニ ュー セキ プ ブン) の 標準 プログ ラム 言語 で 
ある , F-BASIC (エフ ・ ベ ベー シック) V3.0 ン 3.3/3.5 に つい て 人 解 
説 し た も の で ある . 

F-BASIC は , 米国 マイ クロ ソフ ト 社 の BASIC を 大 幅 に 拡張 し た 
も の で あり , FM77。 FM-NEW 7 の それ ぞ れ の 特長 が いか きれ て い 
る . 個々 の 命令 に つい て の 解説 が 主体 し な っ て いる の で , BASIC の 
プロ グラ ミン グ に お いて ,。 ユー ザ の 皆様 の お 役に立つ こと を 期待 し 
て いる . 

【 内 容 】 F-BASIC の バー ジョ ン / バ パー ジョ ン 別 初期 設定 /F-BA 
SIC の 命令 (形式 , 機能 , 説明 , 例 )/F-BASIC プ ログ ラミ ング 上 
の 規約 / メ モリ マッ プ /OPN の レジ スタ 
廊 A5 判 定価 1.800 円 





FM77 AV AudiO 入 門 
高橋 治彦 著 


本 書 は オー ディ オォ 機能 を 充実 きせ た パソ コン FM-77AV を 使い こ 
な すこ と が で きる こと を 目標 に な いた 副読本 で す . 
細か な 理論 な どの 説明 も ぬき に し て , だ れ で も 簡単 に 操作 し , 楽 
し ん で いた だ ける よう に 書い て あり ます . みな さん の 創造 力 で , き 
ら に お も し ろ い 使い 方 , 変わ っ た 使い 方 へ の 道標 し と な る と 思い ます . 
【 内 容 】 画 基 現 編 較 使 用 する 前 に (接続 法 な ど ) プ キー ボー ド 
に 慣れ よう BASIC に つい て (ディ スク の バッ クア ッ プ な ど ) ング 
瑞 オ ー デ ィ オ 編 圏 FM77AV で 音 を 出 を う プ FM77AV を し ゃ べら 
せ て みよ うし ゃ で る 電話 帳 を 作ろ う プ MIDI に つい て FM ミ 
ュー ジッ ク ・ サ ウン ド エ デ ィ タ に つい て 





太 A5 判 定価 1,300 円 
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